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SUMMARY 





A method for digitizing zone maps is presented, starting with colored images 
and producing a final one-channel digitized tape. This method automates the 
work previously done interactively on the Image-100 and Data Analysis System 
(DAS) computers of the Johnson Space Center (JSC) Earth Observations Division 
(EOD). A color-coded map is digitized through color filters on a scanner to 
form a digital tape, which is then converted to a multichannel LARSYS-2 or 
JSC Universal formatted tape) for input to the EOD-LARSYS system. 

The processors STAT, CLASSIFY and a modified DISPLAY processor classify each 
of the input multichannel pixel values into one of the training zone values 
or a threshold value. An output tape is then created by the modified DISPLAY 
processor which is input to the Spatial Filter and Zoom Scanner Data Program 
(FILZOM). 

FILZOM has several options including: (1) to process a specified area of the 

input image; (2) to filter the specified area up to eight times using an 
eight-point spatial filtering scheme; (3) to zoom the specified area; (4) to 
output a multifile LARSYS-2 or Universal formatted tape; and (5) to output a 
line printer map with overprint capabilities. 

Detailed examples are presented for digitizing Crop Moisture Index (CMI) maps 
and other zonal maps. A list of suitable tempera paint colors used in the 
preparation of images for a multichannel tape is also included. 
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1. INTRODUCTION 


The need for a general method of digitizing zonal maps is detailed in the 
previous document of this series (An Interactive Method for Digitizing Crop 
Moisture Index and Other Maps) (ref. 1). In a few words, the need appeared 
for digitizing Crop Moisture Index (CMI) maps and other background images 
for use in the Screwworm. Eradication Data System (SEDS). When it appeared 
that no method was available at JSC, the methods described in these documents 
were developed. 

In essence, the work reported here is an automatization of the interactive 
procedure described earlier (ref. 1). This procedure bypasses the classifi- 
cation steps performed on the Image^lOO computer system and the tape construe 
tion steps performed on the DAS. It still requires that an image be colored 
and digitized to fo>^m a multichannel tape. A method now in development 
promises to bypass these steps by producing a final one-channel tape based 
on the raw CMI data (ref. 2). 

In brief, this procedure consists of the following three steps: 

• Preparation of image with zones color coded (as described in ref. 1; 
optimum set of colors described in section 4 of this document) 

• Digitization of colored image (as described in ref. 1; see appendix F for 
reformatting output tape from scanning densitometer of Photo Technology 
Laboratories) 

• Processing of tape with modified EOD-LARSYS system and the FILZOM program 
to yield an appropriately coded final tape. 


2. THE EOD-LARSYS SYSTEM AND FILZOM 


2.1 INTRODUCTION 

The fundamental program for classifying scanner data at JSC in June, 1975, 
was the operating version of the EOD-LARSYS program. This is an elaboration 
of classification algorithms developed at the Purdue University Laboratory 
for Applications of Remote Sensing at West Lafayette, Indiana. The original 
program has been progressively modified at JSC to meet local needs, and is 

t 

continually being revised. 

The program had most of the elements for classifying the type of data 
produced by the table scanner of the Image-100 computer of NASA's Earth 
Observations Division. As such, it had the potential of eliminating the 
extensive interactive processing that was being performed routinely to 
digitize maps. Although the classification program was adequate, there was 
no mechanism for preparing arbitrarily-coded tapes with the classification 
results. Nor were there special "filter" methods needed to ensure that zones 
were homogeneous and that discrete boundaries of zones were classified 
properly as abrupt transitions from one homogeneous zone to the next. 

To develop these capabilities, modifications were made to the DISPLAY 
processor of the current EOD-LARSYS system and the program. Spatial Filter 
and Zoom Scanner Data (FILZOM), was written. The program FILZOM is 
extensively documented elsewhere (ref. 4), but the chief features of 
FILZOM are presented here as a guide to the user. 

The modified EOD-LARSYS system and FILZOM are contained on one program tape. 
The programs may be executed consecutively or separately. Information on 
FILZOM 's deck setup can be obtained from reference 4 and appendix C. Later 
modifications, as well as current tape numbers, may be obtained from the 
supervisor of the Data Processing Systems Department, Lockheed ETectronics 
Company, Inc. Phone 713-483-3246 (FTS 525-3246). 


2.2 THE EOD-LARSYS SYSTEM 


The three EOD-LARSYS processors which are used in producing an input tape, 
INFIZ, for FILZOM are STAT, CLASSIFY, and DISPLAY. The statistical processor 
STAT, computes statistical parameters for the training blocks which are 
defined as colored blocks on the image. The output tape from STAT along with 
the original multispectral scanner (MSS) image data tape are input to the 
classification processor, CLASSIFY. Each pixel on the MSS tape is classified 
into one of the defined zones and a statistical value of the likelihood that 
the pixel is classified correctly is assigned to each pixel. The output tape 
from CLASSIFY (MAPTAP) is input to the display processor, DISPLAY. DISPLAY 
can perform the following options: 

• Produce a line printer map 

• Produce a classification summary 

• Perform thresholding 

•Perform four point spatial filtering 

• Output a tape in LARSYS-2 or Universal format. 

2.3 SPATIAL FILTER AND ZOOM SCANNER DATA (FILZOM) 

The program FILZOM performs many functions. The following topics concerning 
FILZOM are discussed: 

• The need for the FILZOM f i 1 ter 

• The FILZOM filter 

• The output image 

• Other features. 

2.3.1 THE NEED FOR THE FILZOM FILTER 

The most unique feature of FILZOM is the filter option, which is described 
in greater detail in a separate memorandum (ref. 5) . 


At the time this work was undertaken, there was no filter available. By 
coincidence, a four-neighbor filter was designed and implemented in the 
DISPLAY processor parallel to our development of the eight-neighbor multi - 
filter option. 

The version of the DISPLAY processor with the four-neighbor filter was, 
however, used to make the modifications to output an INFIZ tape. This means 
that the image filtered in DISPLAY may be further filtered in FILZOM. The 
FILZOM filter has greater capabilities than the four-point spatial filter 
because it can do fine filtering as well as gross filtering. 

A need for the FILZOM filter was caused by two problems. The first problem 
comes from imperfections in painting and classifying the image. By their 
nature, zones must be homogeneous, but as a practical problem, misclassifica- 
tions occur. This filter allows most of the poorly classified pixels within 
a zone to be replaced by values assigned to their neighbors. 

The second need for the filter is caused by the edge problem between zones. 

An abrupt change of classification over the boundary is needed between two 
zones. In practice, boundaries are almost always classified as something 
other than two zones, because pixels between zones are composed of two or 
more zones, or paints mix, or shadows occur due to change in relief across 
a border, thus, causing indistinct boundaries. 

2.3.2 THE FILZOM FILTER 

FILZOM filters a specified area of the image output by DISPLAY. The extent 
of the filtering is determined by the following variables which have default 
values that can be overridden by input lead cards . 

• The number of times the image is filtered — lead card FILTER 

• The island test variable - lead card ISLAND 
0 The hole test variable - lead card HOLE. 


A discussion of each of the lead cards and the filter algorithm follows: 

2.3. 2.1 Filter 

FILZOM processes a specified area of the input image. (Refer to FILZOM's 
Lead Cards, appendix C.) The number of times the specified area is filtered 
is determined by the variable TIMFIL on the lead card FILTER. The maximum 
number of times an area can be filtered is arbitrarily set in the program to 
eight. The example below illustrates a multifilter variable of five. 

(TIMFIL equals 5.) 


INPUT IMAGE 


WORK FILE Q 

Output of 
Filter 1 


WORK FILE R 

Output of 
Filter 2 


FINAL TAPE 


XXXXX 1 

XXXXX \ 

XXXXX 

XXXXX 1 

XlllX 1 

X222X 

XXXXX > Filter 

XlllX > Filter 

X222X 

XXXXX 1 

XlllX 1 

X222X 

XXXXX / 

XXXXX I 

XXXXX 


Filter 


where 


and 


Output of 
Filter 3 

XXXXX \ 

X333X I 

X333X > Filter 
X333X 1 
XXXXX } 


Output of 
Filter 4 

XXXXX 

X444X 

X444X 

X444X 

XXXXX 


Fi 1 ter & 
Zoom 


Output of 
Filter 5 

XXXXX 
X555X 
X555X 
X555X 
XXXXX 


X are pixels that are not filtered. 


1 through 5 represents the number of times a pixel is filtered 
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In the example, an Input scan line is filtered and output on work file Q. 

Then, the next scan line is filtered and output on work file Q. This 
procedure continues until a>l lines in the specific area have been output 
on work file Q. Work file Q rewinds and becomes the input file and work 
file R is the output file. The work files R and Q are used simultaneously 
with one being the input file and the other being the output file, until 
the last filtering of the image. The output from the last filter is zoomed 
and written in Universal or LARSYS-2 format on the final output tape. 

The border of the image is not filtered. Only the pixels which are surrounded 
by eight neighboring pixels can be filtered. Two examples are shown below, 
one is a classified pixel surrounded by eight neighbors, and the other is the 
order in which the neighboring pixels are examined. 

AAB 517 

CXB 3X4 

CBB 826 

The closest neighbors {1, 2, 3, 4) are examined first. 

2. 3. 2. 2 ISLAND and HOLE Lead Cards 

The difference between a hole and an island in FILZOM is that an island is 
a classified pixel surrounded by eight pixels, and a hole is an unclassified 
(thresholded) pixel surrounded by eight neighbors. 

The test variables for spatial f i 1 teri ng an island or a hole are input on 
lead cards ISLAND and HOLE. These test variables specify the number of 
neighboring pixels that have to be alike before the center pixel (island or 
hole) is changed. A test variable for a hole and a test variable for an 
island can vary for each time the image i s fil tered . Refer to lead cards 
ISLAND and HOLE in appendix C. 

Using the previous image, which is duplicated on the following page, if the 
island test variable equals three, the following pixels in the image are 
examined. 
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ISLAND TEST VALUE = 

3 


ROWS 


1 2 3 

Line 1 

A A B 

Line 2 

C X B 

Line 3 

C B B 


1) Line 1, Row 2 = A 4) Line 2, Row 3 = B 

2) Line 3, Row 2 = B ’ 5) Lina 1, Row 1 = A 

3) Line 2, Row 1 = C 6) Line 3, Row 3 = B 

There are three B pixels, two A pixels and one C pixel. The center pixel 
is changed to a B. The remaining two pixels (line 1, row 3; line 3, row 1) 
are not counted. 

If the island test value equals five, all eight neighbors are examined but 
the center pixel remains X, since there are less than five like surrounding 
pixels. 

Shown below is an image with threshold pixels indicated as T's. 

A T B 
ATT 
A T B 

If the hole test value equals three, the hole (center threshold pixel) would 
remain a T. The three closest like pi xel s are T's. 

, • I ' '• 

Since it is often desirable to replace as many of the threshold pixels with 
a classified value, a negative test value on either the ISLAND or HOLE lead 
card indicates that only the neighboring classified pixels are counted. 

In the above example using a hole test value of -3, all eight neighbors are 
examined. The center pixel becomes an A, since there are three pixels that 
have an A classification. 




2.3.3 THE OUTPUT IMAGE 

The specific samples and lines which are output on the final tape are 
determined by parameters which are default values or are input on lead cards 
SKIP, ZOOM, and LIMIT. (Refer to FILZOM's lead cards.) A discussion of 
these lead cards follows. 

2.3.3.1 SKIP Lead Car d 

The SKIP lead card (1) designates the number of scan lines that are skipped 
on the image output by DISPLAY and (2) designates the number of samples that 
are skipped on each processed scan line. 



♦ The ZOOM lead card designates which pixels within the specified area are 

multiply defined or skipped. In the previous example, the processing area 
has three lines and four samples. If the zoom sample factor equals 2, each 
pixel on a scan line is output two times. If the zoom line factor equals 3, 
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each scan line is output three times. The equation for calculating the 
number of times a pixel is output on a scan line follows: 

Z .(N - S) ^ Y + T 

where 

Z * zoom sample factor 
N - sample number on a scan line 
S= number of samples to skip on a scan line 
T = number of times the N pixel value will be output. T is a 
whole number. 
n-1 

Y = E T (sum of previous output pixels) 
s+1 

The same equation is used to determine if a scan line is multiply defined or 
skipped. 

2. 3. 3. 3 LIMIT Lead Card 

The LIMIT lead card contains the total number of samples and lines that are 
output on the final tape. The following formula determines if all the pixels 
on an image are processed or if fill data is needed. 

T = L - (P - S) * Z 

where . . 

L = total number of output samples 
P = number of pixels on an input scan line 
Z = zoom sample factor 

S * number of samples to skip on a scan line 
T = the number of output pixels which are skipped or the number 
of threshold pixel values which are added to the end of an 
output scan line 


2.3.4 OTHER FEATURES 

Other features of FILZOM are the varied codes which are assigned to the 
output pixelSf the overprint symbols on the line printer map, and the 
multiple output files. 

On the FILZOM's output tape in LARSYS-2 or Universal format, any code between 
1 and 255 may be assigned to a classified zone, a threshold field, an 
unidentifiable field or an unidentifiable 'other' field. The present logic 
in the DISPLAY processor assigns codes ranging between zero and the number 
of subclasses or class +5. (Refer to lead cards CODE, DEFAULT C, and 
DESIGNATE in appendix C.) 

After each filter, the image can be zoomed and output in a LARSYS-2 or 
Universal tape format. In addition, the image can be represented on a line 
printer map (refer to lead card FILTER). This means that if the data is 
filtered three times, there can be three files of the zoomed output image 
and three line printer maps of the image. 

The symbols, on the line printer map which represent the various zones, may 
be the CM I default overprint symbols , the. symbols used in the DISPLAY pro- 
cessor* or the symbols input on lead cards. 


3. PREPARING DIGITIZED ZONE MAPS 


3.1 INTRODUCTION 

The use of EOD-LARSYS and FILZOM greatly simplifies the digitization of zone 
maps. For brevity, this section will hot discuss any matters mentioned in 
the previous document on the interactive process, since these are not changed 
here. 

3-2 PREPARATION OF THE INPUT TAPE TO EOD-LARSYS 

Images may be prepared on the Image-100 table scanner as before. In this 
case, instructions of the previous document would be followed on scanning 
devices. Then the memory of the Image-100 would be released to a 9-track 
tape in LARSYS-2 or Universal format. 

The densitometer of the Photo Techniques Laboratory might be used. In this 
case, the tape conversion program in appendix G would convert the tape format 
to one compatible with the EOD-LARSYS. This would be a 9-track tape. In 
general, the initial source of digitized data could be a wide variety of 
densitometers. 

3.3 TAPE ASSIGNMENTS AND DECK SETUPS FOR UNIVAC 1108, EXEC II 

In executing EOD-LARSYS and FILZOM several files are used. The logical unit 
for each file is pre-assigned in the programs. (Refer to table I.) The 
tapes produced on the building 17 Image-100 computer system are 9-track 
tapes. This presents a problem, in that the EXEC II 1108 computer system 
at JSC has only one 9-track tape drive. The input 9-traGk tape has to be 
copied onto a 7-track tape. Examples of deck setups along with their 
appropriate Form 588 are presented in the following pages. 
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TABLE I. -- FILE ASSIGHMEKTS FOR PROCESSORS AND FILZOM 



Logical Unit and Internal File Name 

Processor 

A 

(SAVTAP) 

B 

(NAPTAP) 

c 

(DATAPE) 

H 

(BMFILE) 

K 

(HISFIL) 

L 

(TRFORM) 

n:.., 

(ERIPTP) 

N 

(DASTAP) 

Unassigned 

(SCRATCH) 

I 

(INFIZ) 

p 

(SAVEFZ) 

R 

(Holt File) 

Q 

(Hork File) 

$HIST 



Tape 


FASTRANO 









SfiMVfMP 



Tape 


FASTRANO 









$STAT 

Tape or 
FASTRANO 


Tape 











lisoas 

Tape or 
FASTRANO 


Tape 




7-track 

tape 

9- track 
tape 

FH432 




- 

iSELECT 

Tape or 
FASTRANO 


Tape 

Tape or 
FASTRANO 





FH432 





SCLASSIFY 

Tape dr 
FASTRANO 

Tape or 
FASTRANO 

Tape 

Tape or 
FASTRANO 










iOISPUY 


Tape or 
FASTRANO 

1 

! 



i 

! 

1 


9-track 

tape 

FH432 

Tape 




$OATA- 

TRANSFOnUTION| 

Tape or 
FASTRANO 


Tape 

1 

Tape or 
FASTRANO 


Tape 







- 

FILZQH 






—i 




Tape 

Tape 

9-track 

Tape or 
FASTRANO 

Tape or 
FASTRANO 


Note: It is suggested that the program tape always be assigned to logical unit Z. 






Example I. — Run 1 of 2 copies the input 9-track tape onto a 7-track tape. 
Run 2 of 2 executes LARSAA (processors, $STAT,$CLASSIFY and $DISPLAY) and 
executes FILZOM. 



• RUN 

•SARN ASG N«1039 
•RiS ASG C»V01689 
(I ASG L-$UTtL 
« XQT CUR 
IN L 

• XQT TAPACK 
REMINDfl9 
REWlNOta 

TAPEC0PYtl9»l»ly«3 
REWIND* 19 
REWIN0*3 
SEND 

• FIN 


•S ASG Z-V033A5 • PROGRAM TAPE FOR LARSAA AMO FILZOM 

•I^SR ASG P«SAV • OUTPUT FROM FlLZOM-^ -9 TRACK TAPE 

•SR ASG B-MAPTAP 


•^R ASG i«INFIZ 
•SR ASG C-V01689 
•RW ASG R«WORKl 
•RW ASG Q-W0RK2 
e' ASG Hf A 
• COM 0347T776 
•XQT CUR 
TRW Z 
IN Z 


• OAT APE 


•XQT LARSAA 


SSTAT 

COMMENT 

AUTOMATIC PRf 

CHANNELS 

1,2, 3, 6 


OPTION 

MAXCLS * 22 

OPTION 

COVAR«C 


*ENO* 

CLASSNAME 

-6.5 


SUBCLASS 

-6. 5 


-6. 5 

41, 1), 

4 3, 

CLASSNAME 

♦7.5 


SUBCLASS 

♦7.5 


♦7.5 

41* 1), 

4 7 

CLASSNAME 

♦6.5 


SUBCLASS 

♦6.5 


♦6.5 

41, 1), 

4 7. 

CLASSNAME 

♦5.5 


SUBCLASS 

♦5*5 

4 37, 

♦5.5 

41 ,1), 

CLASSNAME 

♦6.5 


SUBCLASS 

♦6.5 


♦6.5 

41, 1), 

* 67 

CLASSNAME 

♦3.5 


SUBCLASS 

♦3.5 


♦ 3.5 

41,1), 

4 98, 

CLASSNAME 

♦2.5 


subclass 

♦2.5 


♦2.5 C 

41. 1) , 

4128 

CLASSNAME 

♦1.5 



0 3 

<1, D* I 3, 356). 356), 4 23, 375), « 3, 375) 

7.5 ■ 

(I* l), 4 7, 395), ( 20. 395), ( 20* 615), 4 7, 615) 

6.5 

4U 1), 4 7, 660), 4 20, 660), 4 20, 659), 4 7, 659) 

5.5 . . 

41*,1). 137, 660), I 51, 660), 4 51, 659), 4 37, 659) 

6.5 

,5, 

41* 1), 4 67, 660), 486, 660), 4 86, 659), 4 67, 659) 

3.5 

4i!i), 4 98, 660), 4112. 660), 4112, 659), 4 98, 659) 

2.5 . 

llf 1 ) , 4128, 660 ), 4162, 660 ), 4162, 659), 4 128, 659) 
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SUBCLASS <155# 4401. <172# 4401* 1172# 4591# 1155# 4591 

CLASSNAHE ^0.75 

♦0?75C^* *illll# U85# 4401# *202# 4401# 1202# 4591# <185# 459) 
CLASSNAHE 40.25 

♦0^25**^ <I»*t»# C216# 4401# 1232# 440)# (232# 4591# (216# 459) 

CLASSNAHE -0.25 

SUBCLASS 440)# <263# 440). 4263# 459)# 1247# 459) 

CLASSNAHE -0,75 . 

-0.75*^^ (I# L)# (277# 440)# <295# 440)# (293# 459). <277# 459) 

CLASSNAHE -1.5 

SUBCLASS -1.5 440)# (324# 4401# (324# 4591# (308# 459) 

CLASSNAHE -2.5 

SUBCLASS 440)# (355# 4401# (355# 459)# (339# 459) 

CLASSNAHE -3,5 
SUBCLASS -3.5 

-3.5 (If D# <368# 440)# (384# 

CLASSNAHE -4.5 
SUBCLASS -4.5 

-4.5 (I# 11# (400# 440)# (416# 

CLASSNAHE -5.5 
SUBCLASS -5.5 

-5.5 II# IT# (431# 440)# (447# 

CLASSNAHE WATER 
SUBCLASS WATER 

WATER (I# D# (465# 440). 1495# 

SEND* 
iCLASSIFY 

CHANNELS 1#2#3#4 

OPTION STATS 

♦END* 

WHOLE (I# 1). (I# D# (512# D# 

$E)io* 

SDllSPLAY 

CGHMENT CMl 27 ^ ^ ^ . 

SYNBOLS G#7#6#5#4#3#2#1#0#+#-#A#B#C#0#E#F#J 

OPTION THRESHOLD VALUE 

THRESHOLD l765O.0#5OO.O 
OPTION FIZKEY 
: ::*ENO* 

SEND* 

SEXIT 

t XQT FILZOH 
COHHENT CHI 27 
FILTER 2 HAP FILES 

I SI. AND -3 -3 

HOLE -3 -3 

BE PHD 
B FIN 


440). (384# 459). (368# 459) 
440)# (416# 459). (400# 459) 
440)# (447# 459)# (431# 459) 
440)# <495# 459)# <465# 4591 

(512# 512)# (1# 512) 
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Example II. — In this deck setup, one run card is used. The input 9-track 
tape on unit P is copied onto unit C. LARSAA and FILZOM are executed. FILZOM 
writes over the input data on unit P. 


(BZ RUN 

•S ASG Z-V03345 • PROGRAM TAPE FOR LARSAA AND FliZCM^ eon., lyetr 

• SARN ASG P-1039 • INPUT OAT APE OVERWRITTEN WITH FINAL OUTPUT FRO^ INF It 

€SR ASG B-MAPTAP 
•SR ASG I-INFIZ 
•SR ASG C-DATAPE 
•RM ASG R-MORKl 
(|RW ASG Q-WORK2 

• ASG HtA 

• ASG L-SUTIL 

• COM 03477776 

• XQT CUR 
IN L 

• XQT TAPACK 
REWIN0«19 
REHlN0t3 

TAPEC0PY»19tltltt3 

REU1N0.19 

REWIND«3 

SEND 

• XQT CUR 
TRW Z 
IN 2 

• XQT LARSAA 

COMMENT AUTOMATIC PREPARATION OF CMI# 4 CHANNELS FROM IMAGE 10— CMI 27 

CHANNELS If2»3t4 

OPTION MAXCLS • 22 

OPTION COVAR-C 

•END* 

CLASSNAME -6.5 

SUKI.SS -6.5 ^ ^ I 

CLASSNAME ♦7.5 

SUBCLASS ♦7.5 ^ 395>, ( 20t 3951* ( 20# 415)# ( 7# 4151 

CLASSNAME +6.5 : 

SUBCLASS jj; I 7^ 4401# I 20# 440)# ( 20# 459). i 7. 459) 

CLASSNAME ♦5,5 

SUBCLASS *5.5^^^^ (37# 4401# I 51# 440)# I 51# 459)# I 37# 459) 

CLASSNAME ♦A. 5 

SUBCLASS ♦4.5 (47, 4401# 184# 4401# I 84# 459)# t 67# 459) 

CLASSNAME ♦3.5 

SUBCLASS ( 9B# 440)# 1112# 440)# (112# 459)# 1 98# 459) 

CLASSNAME *2.5 

♦2?5^C** *ll# D# 1128# 440)# 1142# 440)# 1 142# 4591 # ( 128# 459) 
CLASSNAME ♦l.S 

SUBCLASS (155# 440)# (172# 4401# (172# 4591# (1^5 459) 

CLASSNAME ♦O.IS 

.♦o!? 75C^^ ^?lll)# (185# 4401# (202# 440)# (202# 459)# (185# 459) 

CLASSNAME ♦0.25 

♦0*25*^^ *|I#*1)# «216# 4401# 1232# 440)# (232# 4591# (216# 459) 
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CLASSNAME -0.25 
SUBCLASS -^0.25 

-0.25 II. 1). <247. 4401. 1263. 440J, 1263, 459 J, 1247. 459) 

CLASSNAME -0.75 
SUBCLASS -0.75 

-0.75 II, 1), 1277, 4401, 1293, 4401, 1293, 459), 4277, 459) 

CLASSNAME -1.5 
SUBCLASS -1.5 

-1.5 II, 1), 1308, 440), 4324, 440), 4324, 459), 4308, 459) 

CLASSNAME -2.5 
SUBCLASS -2.5 

-2.5 (1, 1),(339, 440), 4355, 440 ), I 355, 459) , (339, 459) 

CLASSNAME -3.5 
SUBCLASS -3.5 

-3.5 41, 1), 4368, 440), 4384, 440), 1384, 459), 4368» 459) 

CLASSNAME -4.5 
SUBCLASS -4.5 

-4.5 41, 1), (400, 440)Y 4416, 440), 4416, 459), <400, 459) 

CLASSNAME -5.5 
SUBCLASS -5.5 

-5.5 41, 1), (431, 440), (447, 440), (447, 459), (431, 459) 

CLASSNAME MATER 
SUBCLASS WATER 

Water ll, l), 4465, 440), 4495, 440), 4495, 459), 4465, 459) 

SEND* 

SCLASStFY 

CHANNELS 1,2, 3, 4 

OPTION STATS 

♦END* 

WHOLE 41, 1), 41, 1), 4512, 1), (512, 512), (1, 512) 

SEND* 

SOISPLAY 

COMMENT CMl 27 

SYMBOLS G,7,6, 5,4, 3,2, 1 ,0, *,— t A, B, C* 0, E, 

OPTION THRESHOLD VALUE 

THRESHOLD 17*50.0,500.0 
OPTION FIZKEY 

*EN0* 

SEND* ■ 

SEXIT 

• XQT FILZOM 

COMMENT CMI 27 

FILTER 2 MAP FILES 

ISLAND ■ -3 -3 ■ V; ■ 

HOLE :--3^: -3^^ 

•E PMD' .. . x.:V; • ; \ 








































Example III. — FI LZOM is executed using the saved output tape, INF I Z, from 
previous execution of processor $DISPLAY. 


• RUN 

•flW ftSG R-UORKl 

il^W RS6 Q-W0RK2 

•^R AS6 UV0I524 t INF 12 TAFB 

•NSR AS6 P*SAV t OUTPUT FROM FILZ0M«- ~ 9 TRACK TAPE 

•S AS6 Z«lV03349 • PROGRAM TAPE FOR LAR9AA AND F1L20M 

• XOT CUR 
TRW Z 
IN Z 
TOC 

• XQT FILZOM 

SKIP 29 

ZOOM .5 .9 

LIMIT 151 220 

OUTPOT L 

PILTBR 2 MAP FILES 

COMMENT CMI TEST NO THRESHOLDING HAS BEEN USED 

ISLAND 45 

•E PNO 
G FIN 




































4. SELECTION OF COLORS 


4.1 INTRODUCTION 

Crop Moisture Index maps have been digitized weekly for a year at this 
writing. The interactive procedure described previously and the automatic 
procedure described herein were applied to hand-colored images prepared with 
tempera paints. 

For the interactive procedure, the principal requirement for selection of 
colors was that colors of adjacent zones be very distinct. It was convenient 
if each zone was classified unambiguously, but this was not necessary. How- 
ever, in the automatic system described herein, it is vital that colors 
classify correctly. Major misclassifications will result in major errors 
on the final digital tapes. For this reason, a modest study of appropriate 
colors was made. The results are reported in the following sections. 

4.2 AVAILABLE SYSTEMS FOR PREPARING COLORED IMAGES 

There is a wide variety of coloring systems available for preparation of 
opaque images.- For this purpose, we needed a system that met the following 
requirements. 

1. It would need to be rapid and to be completed in a few hours. 

2. It needed to be suitable for a relatively untrained person to do. 

3. Color zones needed to be homogeneous with the colors the same over the 
entire image and not to be glossy. 

4. There should be no relief in the surface. 

5. Colors needed to be opaque if they were to be used to paint over a figure 
on paper. 

6. Fairly small detai 1 (for example, a millimeter) needed to be easy to 
color. 
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7. Boundaries should be abrupt — without transition. 

8. Final image size should be about 6 or 8 inches on a sicje for digitization 
on the Image-100. 

Probably, the best system in the hands of an artist involved opaque acrylic 
paints, but which are difficult for an untrained person to use. For a 
trained person, homogeneous colored paper could be the best system. This 
would be convenient if the image were large enough and were to be reduced 
photographically. No experiments were made with this system. Preparation 
of a transparency was also tried using colored film. The edges were not 
sufficiently precise in our trial cases, and preparation of the colored 
image was difficult. By, far, the best system was one involving the printing 
of the master image, as illustrated in appendix C, but it is much too slow 
and expensive for routine use. For operational use in support of the Screw- 
worm Eradication Project, a system was developed for overpainting paper 
diagrams with opaque tempera paints. This represented a compromise in all 
the requirements, but it satisfied the needs of the project. 

4.3 AVAILABLE TEMPERA PAINTS 

For routine use, it was necessary to use a wide variety of tempera paints. 

It was quickly found that available paints vary widely in quality. Some 
would not cover a pencil or xerox image adequately, even though they were 
classified as opaque paints. Others did not leave uniform colors because of 
separation of pigments. 

On the advice of professionals, only colors of a single quality brand were 
used. The one most accessible to us were the Rich Art colors shown in 
table I. These proved to be good colors for this purpose, although 
undoubtedly other brands of paints would also be useful. 

4.4 SELECTION OF COLORS 

A brief study was made of the separability of tempera colors. A color table 
was prepared to include all the colors in our possession. The ISOCLS 


TABLE II. -COLORS CONSIDERED IN THIS STUDY 






RICH GLO FLUORESCENT I 


Rica ART POST (TEMPERA) COLOR 


WATER COLOR | 

1 

14 

18 

White (Spectrum) 
Poster White 
Gray (Spectrum) 

*64 

*65 

70 

Prussian Blue 
Navy Blue 

Yellow Green (Spectrum) 

Daylight Fluorescent — 
Glows Under Black Light 

20 

Black (Spectrum) 

71 

Emerald Green 



*24 

Poster Black 

72 

Green (Spectrum) 



30 

Light Yellow 

*73 

Dark Green 

D14 

White 

31 

Yellow (Spectrum) 

*74 

Extra Dark Green 

D30 

Lemon Yellow 

32 

Dark Yellow 

75 

Blue Green (Spectrum) 

D40 

Yellow Orange 

40 

Yellow Orange (Soectrum) 

76 

Olive Green 

D42 

Orange 

42 

Orange (Spectrum) 

*77 

Holly Green 

D43 

Red Orange 

43 

Red Orange (Spectrum) 

*78 

Cyprus Green 

D51 

Red 

*44 

Flesh 

80 

Lavender 

D52 

Cerise Red 

50 

Blazing (Light) Red 

*81 

Light Magenta 

D62 

Blue 

51 

Vermilion 

82 

Red Violet (Spectrum) 

D72 

Green 

52 

Red (Spectrum) 

83 

Violet (Spectrum) 

*081 

Lt. Magenta (Pink) 

53 

Crimson Red 

84 

Blue Violet (Spectrum) 

-D82 

Deep Magenta 

*54 

Dark Red 

90 

Yellow Ochre 

D83 

Violet . * 

56 

Brilliant Red 

91 

Brown (Spectrum) 



*57 

Pink 

92 

Burnt Sienna 


- 

58 

Maroon 

93 

Burnt Umber 



60 

Light Blue 

*94 

Vandyke Brown 



61 

Turquoise Blue 

*95 

Raw Umber 



62 

Blue (Spectrum) 

*97 

Raw Sienna 



63. 

Ultramarine Blue 






All "Rich Art" Poster (Tempera) Colors and "Rich 61 o" Fluorescent colors are listed, but starred 
colors were not used. Probably the "Rich Glo Acral" fluorescent acrylic poster colors would be 
identical in color to the fluorescent colors but more convenient to use. 

These colors are available from art supply houses or direct from the Rich Art Color Company, 31 West 
21st. Street, New York, N.Y., 10010. 

No endorsement of Rich Art products is implied. Undoubtedly, other brands would be equally useful to 
this use. Rich Art colors happened to be the most accessible high quality tempera colors at the time of 
this investigation. 



processor of EOD-LARSYS was used to determine which colors were most easily 
separable, and the results are shown in tables II and III. 

This is only a quick way of determining separability of colors, and its 
results are only presented es a convenient starting point. This brief study 
suffered from the following defects: 

• .Only a single experiment was made. 

• Results depend on the filters used, as specified in the table. Other 
filters might give a different set of colors. 

• Lighting of the image was arbitrary. Photofloods were used with varying 
voltages produced by an autotransformer. Fluorescent lights would 
probably yield different color sets. 

• The experiment was limited to the Image-100 system. The spectra character 
istics of its television cameras are not known. 

In spite of these defects, these color sets should provide a useful starting 
point for choosing an optimum set. 

4.5 USE OF THE COLOR TABLES 

Since a near-infrared channel is sometimes used in addition to three visible 
colors, two tables were needed. Both are used in the same way, but table II 
will be used for illustration. 

If 23 zones are needed, use all the colors in the 23-zone column. If 22 
are needed, remove No. 75 because it is listed as 1 in the elimination order 
column. If 21 are needed, eliminate color 84. Table II, used in this way, 
can specify optimum sets for 5 to 23 zones. 

Colors in these tables are arranged such that similar colors are adjacent. 

As a result, this order should be preserved for zones in numerical order. 

For example, if ten zones are to be coded numerically, 10, 20, 30, etc. , 













si 


TABLE IV. - TABLE OF BEST C 
(THREE PRIMARY COL( 


23 ZONES 

15 ZONES 

Elimi- 

Elimi- 

nation 

nation 

Color Order : 

Color Order 

1 

1 

D30 

D30 

31 

31 1 

D43 5 

50 

50 

53 2 

D51 8 

62 + 1 

42 1 

61 

53 

63 4 

62 + 1 

18 

61 

72 

63 

75 5 

18 

80 3 

72 + 1 ‘ 7 

90 

70 2 

93 

72 

20 

75 


82 + 1 3 


80 


84 4 


90 


91 6 


93 


20 



These lists were compiled like those on 
radiation, using a Wratten 89B filter, w 
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they should be represented respectively, by colors 1, D30, 50, blue plus 1, 
etc., as shown in the table. Then, if a pixel in zone 30 is not properly 
classified, it will most likely be misclassified as 20 or 40, not by numbers 
that are more erroneous. 

These color tables are also used for interactive classification schemes, as 
in reference 1 . In such a case, colors should be attenuated in some way 
such that adjacent zones are unlike colors'. In the above example the same 
ten zones might be coded 1, 18, D30, 70, 50, 80, blue + 1 , 90, 63, and 20. 
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APPENDIX A 


DIGITIZATION OF A SIMPLE ARTIFICIAL IMAGE 


The method described here was designed for use with images such as that 
shown in figure A-1. This hand-painted image is composed of nine colors, 
each of which identifies a zone which is to be assigned a given value of 
crop moisture index. Adjacent colors were chosen for contrast, not for 
similarity. Therefore, mi sclassifi cations will tend to be serious. 

Figure A-2 shows the input cards for this case, starting from an output 
tape from LARSYS "CLASSIFY", and figure A-3 shows the results of the 
discriminator. Note, again that adjacent zones were chosen for contrast, 
whereas they would best have been chosen for similarity. 

Figure A-3 shows the final result of the classification and assignment of 
zone values after four applications of a three-neighbor filter. Note that 
there are a few misclassifications, which are to be expected because of 
this low quality of illumination used with the Image-100 table scanner. 





•Z RUN L783S5tF0S2»H3At4803Dt J999tCt30t99 BOSTON CNI 37 

•NSR ASG P»SAVE t OUTPUT FROM FILZOM >-9 TRAGIC TAPE 

•SR ASG I«INFIZ • CMI INFIZ 

•RW ASG R»WORKl 
•RW ASG Q-W0RK2 

•S ASG Z«V00577 • PROGRAM TAPE FOR LARSAA AND FILZOM 

•SR ASG B*V02530 • CMI MAPTAP 

• XQT CUR 
TRN Z 
IN Z 
TOC 

• XQT LARSAA 
fOISPLAY 

COMMENT CMI NO. 37 FOR WEEK ENDING 15 NOV 75 THRESHOLDING 
THRESHOLD •♦50. 0»500,.0 
OPTION THRESHOLD VALUE 
SYMBOLS I»2»3«4«5»B»7»8«W« 

OPTION FIZKEY 
♦END^ 

•END^ 

•EXIT 

• XQT FILZOM 

OUTPUT L 

FILTER 8 MAP FILES 

COMMENT CMI NO. 37 FOR WEEK ENDING 15 NOV 75 THRESHOLDING 
ISLAND 0 -3 -3 -3 -3 -3 -3 -3 

HOLE 0 -3 -3 ^3 -3 -3 -3 -3 

•E PMO 

• FIN 


Figure A-2 . — Inplit caMs . 






APPENDIX B 



DIGITIZATION OF A COMPLEX ARTIFICIAL IMAGE 


The quality of zone-discrimination of this method depends very strongly on 
the homogeneity of illumination of the scanning device. Since illumination 
for opaque images on the Image-100 is only makeshift, zone discrimination 
should be expected to be only fair. 

Figure B-1 presents an image which is considerably more complex than A-1. 
There are 17 zones to be discriminated in this figure. 

Figure B-2 reproduces the cards used to process this image, starting with a 
7-track copy of the 9-track tape produced by the Image-100 computer. 

The final zone image (fig. B-3) shows that the discriminator worked quite 
well. In all cases, misidentifications are serious only because similar 
colors are not adjacent; for example, three blues are coded as 3.5, -0.75, 
and -4.5. If similar colors were adjacent, no misidentifications would 
have been serious. 



Figure B-1. - Color-coded Crop Moisture Index Map 
(original in colors). 


.TARTED PAINTING AT 1 P.M. 
INISHED PAINTING AT 5 P.M 
.UGUST 26/75 


BOSTON 


•2 RUN L 78385 .F 052 .H 3 A.^e 030 t J999,Ct30*99 

•S ASG Z«V033A5 • PROGRAM TAPE FOR LARSAA AND FILZOM 

•SR ASG C>V01689 

•SR ASG B»X02162 

•NSR ASG P=X017AI • OUTPUT FROM FIL20M 9 TRACK TAPE 

•RW ASG R«WORKl 
•RW ASG Q«WORK2 
•SR ASG I«X006A3 
•SR ASG A 

• ASG H 

• XQT CUR 
TRW Z 
IN 2 
TOC 


• XQT LARSAA 
*STAT 

COMMENT AUTOMATIC PREPARATION OF CMI* V CHANNELS FROM IMAGE 100 

CHANNELS l,2,3tA 

OPTION MAXCLS * 22 

OPTION COVAR-C 

*END* 

CLASSNAME -6.5 
SUBCLASS -6.5 

-6.5. (l,l>,U3#363», (20,363). <20, 377), (13,377) 

CLASSNAME *6.5 
SUBCLASS >6.5 

♦6.5 (1,1), (13,440), (20, 4A0),(20,A53J,(13,A53) 

CLASSNAME +5.5 
SUBCLASS ♦S.S 

♦5.5 (1,1), (43,440),(51, 440), (51,453), (43, 453) 

CLASSNAME ♦A. 5 
SUBCLASS ♦A. 5 

♦4.5 (l,l),(73,440), (84, 440), (B4,453), (73,453) 

CLASSNAME ♦3.5 
SUBCLASS ♦3.5 

♦3.5 11,1), (104, 440), (112,440), (112, 453), (104,453) 

CLASSNAME * 2.5 
SUBCLASS * 2.5 

♦2.5 (1,1),(134,440),(142,440),(142,453),(134,453) 

CLASSNAME +1.5 
SUBCLASS ♦1.5 

♦1.5 (1,1), (161, 440), (172,440), (172,493), (161, 453) 

CLASSNAME ♦0,75 
SUBCLASS +0.75 

♦ 0.75 , (l,l),(191,440),(202,440), (202, 453), ( 191,453) ^ ^ 

CLASSNAME ♦0.25 ! 

SUBCLASS ♦0.25 

♦0.25 (1,1), (222,440) *(232, 440), (232,453), (222, 453) 

CLASSNAME -0.25 
SUBCLASS -0.25 

-0.25 (t,l),(253, 440), (263,440), (263, 453), (253,453) 

CLASSNAME -0,75 
SUBCLASS -0.75 

-0.75 (1,1), (283, 440), (293, 440), I 293, 453), (28 3, 453) 

CLASSNAME -1.5 
SUBCLASS -1.5 

-1.5 (1,1), (314, 440), (324, 440), (324, 453), (314, 453) 


ORIGINAL PAGE IS 
OF POOR QUALITYl 


Figure B-2. — Cards used to process the 
image in figure B-1 . 


CLASSNANE >2.5 
SUBCLASS -2.5 

-2.5 fl*l)t<3A5»4A0)*(355.A^0),l3S5«AS3)«O45t453) 

CLASSNAME -3«5 
SUBCLASS -3.5 

*3.5 11 f 1 ) t ( 374« 440 ) t ( 384t 440) • ( 384. 453 )» ( 374t 453) 

CLASSNAME -4.5 
SUBCLASS -4.5 

-4.5 Cl»l)«(406»440)t(416t440) t I416»453)»(406t453) 

CLASSNAME -5.5 
SUBCLASS -5.5 

-5.5 ntllt(437«440)t<447t440)»t447.453)tt437t453) 

CLASSNAME WATER 
SUBCLASS WATER 

BLANK ilfl)tU3t3?3)t<20t323),(20t337)»(13t337) 

PAINT f I»l)«(471,440)ti495t440) * (495t453),<471t453) 

SEND* 

ICLASSIFY 

CHANNELS 1*2 .3.4 
OPTION STATS 
*ENO* 

WHOLE M. 1). II. l)f 1512, 1), (512. 512), 11, 512) 

SENO* 

»0I SPLAY 

COMMENT CMI WEEK ENDING 23 AUG 75 NUMBER 25 

SYMBOLS G , 6 ,5,4,3, 2,1,0*'*',— ,A,B,C,0,E,F,J 

OPTION THRESHOLD VALUE 

THRESHOLD 16*50.0,500.0 

OPTION FIZKEY 

*ENO* 

SEND* 

SEXIT 

• XQT FILZOM 

comment CMI WEEK ENDING 23 AUG 75 NUMBER 25 

FILTER 5 MAP FILES 

ISLAND 0 -3 -3 -3 -3 

HOLE 0 -3 -3 -3-3 

OUTPUT L 

•E PMO 

t F UbL 


Figure B-2. — Cards used to process the 
Image in figure B-T. (concluded) 

B-5 
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ALPHABETICAL LISTING OF LEAD CARDS FOR FILZOM 


APPENDIX C 


ALPHABETICAL LISTING OF LEAD CARDS FOR FILZOM 


IDENTIFICATION PAGE 


CODE 1 

COMMENT 2 

DATE 3 

DEBUG 4 

DEFAULT C 5 

DEFAULT S 6 

DESIGNATE 7 

FILE 8 

HEDl 9 

HED2 10 

HOLE 11 

ISLAND 12 

FILTER 13 

LIMIT 14 

*NOSEDS 15 

OUTPUT 16 

SKIP 17 

SYMBOL 18 

ZOOM 19 


*If a NOSEDS lead card is read, check the default values 
for cards LIMIT, SKIP and ZOOM. 


[• 


Ci 


JOB P |LZ . O^ . lead card set UP PAGE NO._l_OF 3 

MAMF CODEAAAAAA _ PROGRAMMER _Mton_ DATE 


■ 

1 

FIELD 
1. D. 

CARO 

COLUMNS 

FORMAT 

SYMBOLIC 

NAME 

IDENTIFICATION 


152 

1-10 

A6,A4 

CARDl 

GARD2 

Enter 'CODEAAAAAA’ . 

* ■ 







3-12 

11-60 

1015 

CODE 

Enter a code (right justified) for each sub- 





class starting' with subclass one. A maximum 
of six CODE cards can be read. Each code 






must be unique. Also, a code cannot be 
smaller than 1 or greater than 255. 






The default code values for the SEDS sub- 
classes together with the appropriate class 




1 


names are shown below: 

SEDS GLASS NAMES CODE' 






-7.9 1 

. R - 

1 




-6.5 24 

-5.5 . .40 




-4.5 56 

-3.5 72 





■ -2.5 ST 

-1.5 104 


1 

1 



-U. /b 116 

-0.25 124 

- \ • 




•*•0.25 132 

■HO. 75 140 




■^1.5 152 

+2.5 168 





+3.5 184 

+4.5 200 





+5.5 216 

+6.5 232 





+7.5 248 

y . . . - _254 — — 





WATER 176 

















COMMENTS Optional card. Default: SEDS codes. 


C-3 

Iflf ASO 061, 



JOB f aZQ M 


NAME .ceMUBOT 


AAA. 


LEAD CARD SET UP PAGE NO.-i-OF- 

PROGRAMMER gOStOP DATE 


FIELD 
I. 0. 


CARD 

COLUMNS 


FORMAT 


SYMBOLIC 

NAME 


IDENTIFICATION 


1,S2 


1-10 


A6,A4 


CARDl 

IGARD2 


Enter ' COMMENTAAA ' . 


3-12 


11-70 


10A6 


(MNT 


Any 60 characters which are desired for the 


3rd lina of thfi pagfi heading. 


COMMENTS Optional card. Defau i t ig fin hiahV Higrart^r^. 


C-4> 


ASO 061 


E 


JOB _ 

FILZCM 



NAME 

dateaaaaaa 


FIELD 

CARD 

COLUMNS 

FORMAT 

SYMBOLIC 

NAME 

m 

1-10 

A6,A4 

(JAKUI 

CARD2 

3 



11+22 

. 2A6 

DATE 


LEAD CARD SET UP^ , 

PROGRAMMER 

ID ENT I FI CAT ION 

Enter 'DATEAAAAAA *- . 

Enter any 12 characters 


PAGE NO. 
— DATE 










COMMENTS Optional card. Default; current date. 


»so oei 




PUZQM 


DEBUGAAAA£ 


1 1 

LEAD CARD SET UP PAGE NO.-*^.OF — 

PROGRAMMER Boston DATE 


FIELD 
I. 0. 


1^2 


CARO 

COLUMNS 


1-10 


FORMAT 


A6,A4 


SYMBOLIC 

NAME 


CARDl 
CARD2 , 


IDENTIFICATION 


Enter ’DEBUGAAAAA* . 


11-15 


15 


DEBUGJ 


Enter a ”1" (rig ht justified) for debug 
information. If DEBUGF equals one, the 


input training fields and t est fields are 


















JOB ^ 

FILZOM 


NAME 

DEFAULTACA 


FIELD 

co“£ns fo™*’ 

SYMBOLIC 

L D. 

NAME 

1§2 

1-10 A6,A4 

LAkJji 

CARD2 


LEAD CARD SET UP„ ^ 

PROGRAMMER 

IDENTIFICATION 


PAGE N0.J^0F-L 
DATE 


11-15 15 DFTCOD Enter the default code value Ctight justified) 

for a pixel th at is unclassified. The code 

cannot be equal t o a classified pixel code. 

Also, the code cannot b e smaller than one or 
greater than 255. 


COMMENTS Optional card. The default is SEDS default code 128. 


ftSO 061 



CARO 

NO. 

JOB FILZOM 


LEAD CARD SET UP ' PAGE N0._1^0f2__ 
PROGRAMMER DATE 


FIELD 
1 . 0 . 

CARD 

COLUMNS 

format 

SYMBOLIC 

NAME 

IDENTIFICATION 

1§2 

1-10 

A6,A4 

LARDl 

CARD2 

Enter 'DEFAULTASA' . 

3 

15 

A1 

DFTSYMCL^ 

Enter one of the default symbols for a 





pixel that is unclassified. 

4 

20 

A1 

DFTSYM^2V 

Enter the overprint symbol for a pixel that 





is unclassified. 







r 









































































COMMENTS Optional card. The default values are DFTSYMCIV- 0 and 


DFTSYMrZ^ blank 


338 


DESIGHATEA 


LEAD CARD SET UP 

PROGRAMMER 


PAGE NO.-i— OK-i- 
DATE - 


nrH 

CARO 

COLUMNS 

FORMAT 

SYMBOLIC 

NAME 

IDENTIFICATION 


1-10 

A6,A4 


Enter 'DESIGNATEA' , 

CARD 2 

3 

11-15 

15 

DESCOD(l) 

Enter a code (right justified) for fields that 


are designated as ’ifliidentifiable* . Tiie code 


must be unique. Refer to lead cards CODE 
and IEFAULTaC. Also a code cannot be smaller 


20 ' A1 SESSYM(1,J.|)' Enter one of the symbols for a field that is 


designated as ' unidentifiable . 


25 A1 |DESSYM(.2,3)^^gy overprint symbol for a field tha 


is designated as 'unidentifiable'. 


31-35 15 DESCODC2) Enter a code (right justified) for fields 


that are designated as 'other'. 


ESSYM(l,4)Enter one of the symbols f 


that is designated as 'other' 


I)ESSYMC2,2)Enter the overprint symbol for a code that 


is designated as ' other ' . 


COMMENTS Optional card. The default values are DESCOPriV 
=?, DESSYMC2 , 1) =A , DESCOD C2)=2 , DESSYMCl, 2)=# , DESSYM(2 , 2) -A 

















































HWI:1 


















JOB _FILZOM ggj yp NO._OfJ 

NAME HED2AAAAAA PROGRAMMER Boston DATE 



COMMENTS 


Optional card. Default: HOUSTON, TEXAS 


C-T2 


ASO 061 


FILZOM 

HOLEAAAAAA 


CARD 

COLUMNS 

FORMAT 

1-10 

A6.A4 

11-35 

515 


SYMBOLIC 

NAME 


HOLTST 


LEAD CARD SET UP I 

PROGRAMMER 


IDENTIFICATION 


PAGE NO. 
DATE 


Enter 'HOLEAAAAAA*. 


For each time the input data is filtered enter 


HOLTST value (right justified). A positive 




unclassified pixels that have to be equal be- 
fore the center unclassified niicel is changed^ 
A negative HOLTST value is the number of 
classified nixels that have to be equal before 


e center unclassfied pixel is changed to a 
classified pixel. 


Valid HOLTST values follow: 


3 -3 


5 

-5 

6 

-6 

7 

-7 

8 

-8 

0 - for no 

filtering 


COMMENTS r.arg. , 

default HOLTST value equals 5. 




















FIELD 
1 . 0 . 

CARD 

COLUMNS 

1§2 

1-10 

3 

11-35 


SYMBOLIC 

NAME 


1 

2 


ISLTST 


PAGE NO. 
DATE 


LEAD CARD SET UP 

PROGRAMMER 


IDENTIFICATION 


Enter ' ISLANDaaaaa ’ . 


For each time the input data is filtered 


enter an ISLTST value (right justified). A 
nositive ISLTST value is the number of classi- 


fied or unclassified pixels that have to be 
equal before the center classified ^ixel is 
changed. A negat ive ISLTST value is the ' 
number of classified pixels that have to be 


tore me center class iriea pixel is 

changed. 


Valid ISLTST values follow: 


3 -3 


5 -5 


tional card. For each time the input data is filtered, th 


COMMENTS .TUI 

default ISLTST value equals 5 

















1§2 1-10 A6,A4 CARD2 Enter VFILTERAAAA’ . 


.infi FILZOM 

NAMF filter 

field 
1 0 . 

CARD 

COLUMNS 

1§2 

1-10 



3 

11-15 





4 

20-22 


LEAD CARD SET UP 


Boston 


FORMAT 


SYMBOLIC 

NAME 


PROGRAMMER 

IDENTIFICATION 


PAGE NO.^OFl. 
DATE 


TIMFIL 


FILMAP 


Enter the number o£ times frit 


lUStltlf 


t.he input data will be filtered. The TIMFIL 

Value cannot be larger than 8 . The default 
is TIMFIL = 1. 

If a greymap is desired for each time the in- 
put data is filtered, enter *MAP'. The de- 
fault is a greymap of th6 last time the data 
is filtered. 


COMMENTS Optional card. 


the data is filtered, enter ’..FILFil!^ — Ihe_ 
default is only an output file of the last 
time the data is filtered. 


ASD 061 


Job _ FiLZOM 

NAME 


LIMIT 


LEAD CARD SET UP ^»A6E NO.-J.OF_L 

Boston date 


PROGRAMMER 


I FIELD 
I. 0. 


CARO 

COLUMNS 


FORMAT 


SVMBOLIC 
NAME 


IDENTIFICATION 


1^2 


1-10 


A6,A4 


■CARDT 

CARD2 


Enter 'LIMITiiAAAA' 


11-15 


IS 


LIMLIN 


Enter the number of lines fright justified) 


desired on the output tape. A blank or zero 


is not allowed. Also LIMLIN cannot be 


larger than 1,000. 


16-20 


15 


LIMSAM 


Enter the number of samples (right justified) 
per line desired on the output tapf>. A 


blank or zero is not allowed. Also LIRSAM 
cannot be larger than 1,000. 


COMMENTS Opl-i-nn g l The dafanit vfl1iie<g ata T.TTvlTTM - und T TMSAM . 

» 625. 


C-16 


ASD 061 



nosedaaaa 


FIELD CARD cobm*, 
I. 0. COLUMNS 


1§2 1-10 


SYMBOLIC 

NAME 




CARD2 


LEAD CARD SET UP PAGE NOJ^OF-_l 

PROGRAMMER DATE - 


IDENTIFICATION 


Enter 'NOSEDAAAA*. This indicates that- the 


bhUb aerauxt syffiDois and codes will not be 
used. Refer to lead cards SYMBOL, DEFAULT S, 


CODE, DEFAULT C and DESIGNATE. If a SY^ffiOL 
lead card is not read, the symbols from 


$DI SPLAY will be used for the gre^ap. If a 
CODE lead card is not read, the first subclass 


If a DEFAULTaS lead card is not read then 


Rfl t ■ if SKitiRl 


111 mL aiWiiU II IMS 


used. If a DEFAULT C lead card is not read 




■tpi 


subclasses +1. If a DESIGNATE lead card is 
not read, the code for a designated 


'unidentified' field equals the number of sub- 
classes + 5 and the code for a designated. 


equals the number of subclasses 


rnMyFMTR upuxujtct j. uam. is ocio ■ svmpois ana coaes. Kerer 

options on lead cards SYMBOL, DEFAULT S, CODE, DEFAULT C, and DESIGNATE 














JOB ,F.I.LZ,OM LE/^0 CARD SET UP PAGE NO._i^OF_l 

NAME PROGRAMMER DATE 



rr>MMCMTQ Optio^^al card. Default is the Ihiversal format. 


C-18 


ftSD 061 


JOB _ 

FILZOM 


NAME 

SKIPAAAAAA 


FIELD 
1. D. 

CARO fdrijAt 

COLUMNS 

SYMBOLIC 

NAME 



CARDl 

1S2 

1-10 A6.A4 

CARD2 


LEAD CARD SET UP ^ PAGE no.^OFJ 
PROGRAMMER 225^^2 DATE 


PROGRAMMER 

IDENTIFICATION 


justified). 

16-20 15 SKPSAM Enter the number of sainples to skip, fright 

justified). 


COMMENTS Optional card. Default. valiip«; arp SKPl.TN = 70 anrl SKPSflM ? X 
If SKIPAAAAAA is read and the field is blank, the variable will equal zt 


hSO 061 






symbolaaaa 


LEAD CARD SET UP 

PROGRAMMER - — 


Boston 


PAGE NO. 
DATE 


FORMAT 

SYMBOLIC 

NAME 

IDENTIFICATION 

A6,A4 

■ n iillM 

Enter 'SYMBOLAAAA’. 

GARD2 


3-63 11-70 60A1 SYM 


■ I 






Enter symbols 81 , 82 , . to subclasses 1,2 . . A 


respectively . If overprinting is des ired , then 
the overprint symbols are entered on a second . 


.SYMBULAAAA ieau cara,uve 
, overprinted ' 


symoois may oe used in tne same greymap, 
however, each symbol or symbol set for a 


suDCiass must oe unique, me aerauir acuo 
symbols are shown below. 


8 EDS CLASS NAMES 


.9 


SYMBOL SETS 


8 / 


.5 

.75 


-0.25 

+0.25 


+0.75 

+1.5 


Effil 




+7.5 

u 

+7.9 

8 a 

mTEK 

AA 


COMMENTS Optional card. If only one SYMBOLAAAA card is read 
will be blanks. The default symbols are the SEDS symbols. 
















FILZOM 

ZOOM 


LEAD CARD SET UP ^ PAGE NO. J^OF_J 
PROGRAMMER J2£^£IL__ DATE 


CARD 

COLUMNS 

FORMAT 

1-10 

A6,A4 

1 11-15 

F5.0 


SVMBOLIC 

NAME 




IDENTIFICATION 


Enter 'ZOOMAAAAAA 


11-15 F5.0 Z0MLIN Bnlter the ZOOM line factor for all output 


files and ereymap. If zero or blank 


the program calculates ZOMLIN. 


; i 

j Enter the ZOOM sample factor for all output 


files and greymap. If zero or blank the 


program calculates ZOMSAM. 


16-20 F5.0 ZCMSAM 


COMMENTS 

ZOMSAM = : 























llln.* riLZ0ff/Nd«41A>flL20ll.riL20(l 

UllVAC nO< FORTAAM V €KEC 11 lEVCL 2 )A -CEKECS LEVEI E 1 Z 0100 «tA> 

TNIt CORRILATIOI HAS DORE OB 01 AOl 7 * AT 11 tZlll 4 

mil MOGRAB 

tTORAGC UtCOi CODEC n 007 ) 75 i DATACt) Olllf/t ILARK CONNOI< 2 > OOBOOl 

comioi iLocKSi 

•DOS rii 0004S4 

•if« 0 «UN 000041 
0005 flFlZI 00001) 

0001 COBtAII 01)510 
0007 U 1 TIF 2 005211 

0010 GLOBAL - 000071 

0011 OlfOL O 01 S 7 O 


iXTSMAL BEFCRCICEB (BLOCK, BAHE> 

0012 REBET 
001S BREAD 

0014 FtBSFL 

0015 toate 
0011 BDCODl 
0017 FIZMRF 

0020 MRTFLO 

0021 FIZSOM 

0022 RIRIT 
002S RBCOOt 

0024 FIZTMO 

0025 FIZFLT 
0021 M2URT 
0027 BMRITE 

0090 film? 

0091 CLOCK 

0092 CBERR 
0099 BREUS 

0094 aUDUS 

0095 BIOZS 
0091 BBOUS 
0097 BI01S 

0040 BUEFS 

0041 BSTORf 


STORAGE AtSfGBREBT (BLOCK. TYRE, RELATIVE lOCATIOB. BABE) 


0000 

014175 

10F 

0000 

014921 

100F 

0001 

000474 

lOOOG 

0001 

000590 

10206 

0001 

000020 

1040L 

0000 

0145J0 

105F 

0001 

000144 

1050L 

0001 

000151 

1051G 

0000 

014394 

101F 

0001 

000247 

10101 

0001 

000197 

10190 

0001 

000145 

1070C 

0001 

000272 

1070L 

0001 

0001)1 

10746 

0001 

000507 

1075L 

0001 

000927 

10I0L 

0000 


110F 

0001 

000174 

1101C 

0001 

000705 

11146 

0001 

000742 

11976 

0001 

000747 

11450 

0001 

000775 

11516 

0001 

001004 

1^46 

0000 

014911 

120F 

0001 

001045 

12076 

0001 

001050 

12150 

0001 

001107 

1254G 

0001 

001192 

12476 

0001 

0011)5 

12606 

0001 

001171 

12706 

0001 

001ZZ4 

15076 

0001 

001219 

illOO 

0001 

001271 

153)6 

0001 

001275 

19416 


001957 

19156 

0001 

001945 

1570C 

0001 

001551 

1374C 

0000 

014915 

140F 

0001 

001504 

14446 ' 

0001 

001510 

14500 

0001 

001511 

1455G 

0001 

001590 

14616 

0001 

001)54 

14726 

. 0001 

001561 

150)6 


001104 

1V170 

0001 

001127 

1591G 

0001 

001152 

1545G 

0001 

001750 

15746 

0000 

014315 

IlOF 


002142 

16196 

0000 

014419 

170F 

0000 

014411 

1B0F 

0000 

014471 

1S1F 

0000 

014)07 

1S2F 

0000 

014)20 

1S3F 

0000 

014549 

1O0F 

0000 

014)91 

1BIF 

0000 

014551 

200F 

0001 

000402 

2000L 


000422 

ZOeiL 

0001 

000451 

2020L 

0001 

000501 

2040L 

0001 

000595 

2010L 

0001 

002159 

2017G 

0001 

000121 

20701 

0001 

000151 

20S0L 

0001 

000721 

20B5L 

0001 

000721 2000L 

•000 

•14572 

210F 

0001 

0007)7 

21 OIL 


page is 
OF POOR QUAUTYI 


0-3 


11i21s94 


•••1 


001027 

2105L 

0000 


014*01 

2 Ilf 

0001 


001027 

2110L 

0001 


002721 

21126 

•001 



2U0L 

•Oil 


00279S 

212SC 

0001 


0027*0 

21)56 

0001 


001114 

21401 

0001 


003040 

21546 

• •01 


003045 

21*06 

••01 


•011S4 

21*0L 

0001 


00117* 

21*01 

0000 


014*0* 

22 Of 

0001 


001231 

22001 

• 001 


00310* 

22026 

•••1 


•0S111 

22 IOC 

0001 


00)12* 

22 170 

0001 


001305 

22201 

0001 


001134 

22256 

0001 


0013*1 

2225L 

•••1 


•01471 

2210L 

0001 


001150 

223*6 

0001 


00154) 

2240L 

OOOI 


0031*1 

22456 

0001 


00156* 

22*0L 

•••1 


001*11 

22I0L 

0000 


•14*1* 

2S0f 

0001 


001*34 

2300L 

0001 


*01*57 

2S10L 

0001 


003305 

2315G 

• 001 


001*71 

2315L 

0001 


0033)1 

2311C 

0001 


00)342 

2)3*6 

0001 


60173) 

2S50L 

0001 


001745 

2360L 

•••1 


00342J 

23*56 

0001 


0017*4 

2345L 

0001 


002001 

2370L 

OOOI 


002027 

2375L 

0001 


003443 

23776 

•••• 


014*57 

2407 

0001 


003571 

24356 

0001 


002045 

24401 

0001 


003*00 

24416 

0001 


002065 

2445L 

•••1 


•0»42 

24*26 

0001 


003*45 

24*56 

0001 


0021 1* 

24*51 

oooo 


014704 

250F 

0001 


0021*0 

2500L 

• •01 


0017)0 25146 

0001 


0«37)3 

252*6 

0001 


002353 

2540L 

0001 


•04002 

254)6 

0001 


004017 

25546 

•••1 


•0240) 

25*0L 

0000 


014730 

2*0f 

0001 


004)17 

2*476 

oooo 


•14772 

2*5f 

0001 


0043)1 

26556 

•••• 


0150CO 

2707 

0001 


004)30 

27226 

0001 


004*4) 

273*6 

0001 


0050*2 

27*46 

•000 


015043 

2I0F 

•••• 


•14177 

J07 

0000 


•15077 

300f 

OOOI 


005177 

30006 

oooo 


015117 

302F 

• 001 


002453 

3020L 

•••1 


•05))* 

10216 

0000 


•15125 

)6)f 

0001 


002)15 

3040L 

0001 


002)** 

30*01 

• 001 


005474 

30656 

•••1 


002*17 

lOIOl 

0000 


•15133 

310f 

0001 


005577 

31176 

0001 


005*14 

31276 

oooo 


01)21* 

315F 

•••• 


•152)7 

1177 

0000 


0152*0 

)20f 

0001 


00*011 

32046 

oooo 


01530) 

S22F 

OOOT 


00*101 

32266 

•001 


00*1)1 

S242C 

0000 


•15)25 

)50f 

oooi 


00*311 

33016 

OOOO 


01)332 

)S1f 

•000 


•15)43 

)3iLf 

•••• 


015)71 

)))7 

0001 


00*41) 

33 326 

0000 


0154)1 

)S5f 

oooo 


•1)4*4 

340F 

oooo 



342f 

•••• 


•15570 

14)7 

0001 


•07047 

34 506 

0001 


007114 

34**6 

oooo 


01557) 

)50F 

0001 


007135 

3)006 

•••1 


007221 

152*6 

0001 


0*722* 

35346 

0000 


015)74 

3*0f 

0001 


007421 

3*406 

oooo 


015*42 

5*5f 

•••1 


007470 

)*72G 

0001 


007)13 

3705G 

0000 


015*52 

400f 

0001 


002**0 

4000L 

0001 


002727 

4040L 

•••• 


015**5 

40)7 

0001 


002744 

40501 

0001 


0030*4 

40t*L 

oooo 


•15*74 

410F 

• 001 


0030** 

4100L 

•••• 


01571) 

4157 

0000 


01)7)7 

41*F 

0001 


00)121 

41*0L 

oooo 


01*022 

420F 

• 001 


•03171 

4 300L 

•••1 


•0335* 

43*0L 

0001 


•0)3*) 

4 3*01 

oooo 


01*0)5 

440F 

0001 


0034)5 

4400L 

•001 


00)4*0 

4450L 

••01 


0034*4 

44*0L 

0001 


00)5)5 

44*0L 

0001 


003*10 

4500L 

0001 


eo3**o 

45S0L 

•001 


003**2 

453U 

•001 


001**4 

4))*L 

0001 


••17*4 

4540L 

0001 



45*0L 

oooo 


01*057 

4*0F 

0001 


004024 

4600L 

•000 


01*0*) 

4*57 

0000 


•1423* 

50 f 

0000 


01*0** 

500F 

oooo 


01*077 

510F 

oooo 



51 5 f 

•••• 


•1*102 

5207 

0001 


••0011 

54*6 

0000 


01*121 

5I0F 

oooo 


•1*130 

)*5F 

oooo 


0142)2 

*0f 

•001 


•04444 

*04 OL 

0001 


0002)7 

*326 

0001 


0002*2 

*476 

0001 


000302 

**3G 

0001 


•00322 

*766 

•000 


•142** 

707 

Oooi 


004771 

70*0 L 

0001 


0003*0 

71*6 

0001 


•0532) 

72001 

0001 


0053)5 

726)t 

•001 


005401 

7215L 

0001 


005)0) 

7220L 

0001 


005*04 

72501 

0001 


000372 

7276 

0001 


005677 

72I0L 

•001 


•057*4 

7300L 

0001 


00*012 

7320L 

0001 


00*144 

73*tl 

0001 


00*1** 

7370L 

: 0001 


00*242 

73101 

•••1 


•0*2*7 

7420L 

0001 


000417 

7436 

OOOl 


00*)1* 

74*0L 

0001 


00*335 

74I0L 

0001 


00*3** 

74I5L 

•001 


•0*40) 

7400L 

0000 


•14301 

75f 

0001 


00*42* 

7500L 

0001 


•O0431 

7516 

•001 



7511L 

•001 


00*4** 

7)1)t 

0001 


•0*)34 

7520L 

0001 


000444 

7*26 

oooo 


014313 

• Of 

0001 


006)53 

• OOOL 

/^ooi 


00** S* 

• 040t 

0001 


•0*722 

*0501 

OOOI 


00715) 

•070L 

0001 


••7171 

10751 

•001 



• 120L 

•001 


007275 

• lOOL 

0*01 


•07)10 

*9*01 

0000 


014324 

90F 

oooo 


01*1)4 

900F 

• 001 


007350 

9000L 

•001 


•07405 

fOlOt 

0001 


••742* 

9030L 

0001 


0074)7 

9040L 

0001 


0074)2 

904U 

oooo 


•1*15* 

905f 

•001 


00745) 

00)OL 

0001 


•0747* 

90*0L 

• 001 


007)24 

9070L 

0001 


•07534 

9075L 

0001 


007)42 901 OL 

•001 


007551 

fOOOt 

0000 


•1*202 

OlOf 

0000 


01*221 

91 )F 

oooo 


01*243 

920F 

• 000 


016277 

925F 

• 000 


01*155 

0307 

0000 


•1*410 

940f 

0000 


01*442 

950F 

oooo 


01*471 

990F 

0011 


001342 

ACROR 

•004 

1 

000042 

ALAOO 

0011 


0013)1 

AlALVt 

0011 


00134) 

AOTHEN 

0005 

I 

000000 

ARf l2l 

oooo 

I 

014140 

ARIANE 

•000 

1 

000242 

AAiAV 
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014040 
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1 

014172 
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ENPTRS 
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01412* 

enofLo 
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000401 

EOfHIT 

•010 


0000*2 

ENIPT7 

0010 


•000*3 

EOPKCV 
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014075 

ERRCOD 
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014073 

ERROR 
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014117 

ERRSED 

•000 

1 

01410) 

EONTST 
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000377 

E3AN 

oooo 
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014137 

ESANF 
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00037* 
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001175 
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1 
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01410* 
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014105 
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•oil 
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fl2fll 

0010 


000074 

fI2KET 
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I 
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F12RAN 

•010 


000073 

F12URT 

•••5 


•00004 

71DE0C 

0011 


•01171 

FlOKET 

0011 


000574 

FL05V2 

0011 

i 

000577 

fLDSV) 
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000032 
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•000 

1 

•14145 

7TT 
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•OOOOO 

MEAD 

0003 


•00327 

HE01 
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000)41 

NE02 

•oil 


001001 

N16M 
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•00037 

Mism 

0010 


000040 

♦1I3AE1 

0004 

1 

011434 

MOLARR 

0007 

1 

04320S 

HOLECM 

•004 

000027 

MOLLIR 

•000 

1 

0U14I 

MOLNAP 

0007 

1 

000032 

NOLTST 

0004 

I 

000030 

NOLURD 

0000 

I 

014101 

1 
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UAODR 

•000 

1 
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tCARO 
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1 

014042 

lOlUG 

0000 

1 

014040 

IDCOO 
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014047 
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•14044 

lOOAT 
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1 

• U001 

IDOC 

0000 

1 

014074 

lODES 

0000 

1 

OU032 

lOOS 

0000 

t 

014043 

I OF I t 

0000 

•14071 

lOFIT 

•000 

1 

•14121 

lOFTPT 

0000 

1 

014044 

10ME01 

0000 

1 

014043 

I0NED2 

0000 

1 

014034 

lOMQL 

0000 

014033 

tOISL 

0000 

1 

014^54 

tOLIR 

0000 

1 

014030 

lOOP 

0000 

1 

014070 

lOSEOS 

0000 

1 

014037 

lOSKP 

0000 

•14031 

iOSlR 

0000 

I 

014033 

102011 

0000 

! 

014112 

I MR 
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1 

000010 

ILUEO 

0003 

1 

000011 

lURIC 

0003 

000007 

UlRSt 

0000 

I 

•14113 

mu 
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1 

000004 

ULUE 
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UPTS 
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001730 
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irstat 

0000 
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•••112 
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I 

000013 

ISAREO 
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000014 

ISARIC 
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000012 

ISARST 
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1 

•14101 
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1 
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1 
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0000 

1 

014047 
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014133 
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•01347 
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1 
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••1174 

ROFET2 
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■OTRFD 
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I 
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otfile 
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1 

000333 
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1 

014130 
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014074 
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PAGSI2 
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PCFOKT 
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000402 
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000043 

PERCRT 

0011 


000344 

PLTkET 
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PROSAR 
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1 

•14120 

PT 
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1 

001730 

PTSVR 
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REALU 
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•14134 
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014041 

SARUC 
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1 
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1 
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1 

014043 
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0010 


000034 

SAVTAP 
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014033 
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I 
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tEOHAH 

0011 


001343 

SITE 
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1 

014110 

sxruE 
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1 
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SCPLIR 
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000314 

SkPSAR 

•000 

1 

014131 

•KPS 
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I 
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SLUE 
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STAFIL 
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1 
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1 
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tVHRTX 

0004 

1 

000044 

STRPAG 
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I 
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1 
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1 

000302 
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I 
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1 
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1 
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1 
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IRPLtClT UTEGER (A-Y) 
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7* 


UCIUOE FI2C0R.IIST 

104 

7t 


IRPLlCir OOUUE PRECISIQR (2> 

103 

7t 
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PARARETER PAGCOL s 10. PACSYR « 110. PARSAR * 1000. PARLU « 1000 
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7t 


PARARETER PAGHRO * If. PSCLAO * 41, ISUtCL s PSCIAO - 1 

110 

7« 


PARARETER PSEOS « 21. PpUUR » PSCLAD«4. PSTR ZUOUTIO. 

ilo 

7i 


« PSARP3* PARSAR « ii PARFll « 1 

110 

7# 

c 
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7* 

t 
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c 
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• SKPSAR, OFTCOO, OFTStRiZ). pFTPT, 20RLU. ZORSAR. 
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• LIRLIR . IIHSAR. HEOmO). MEti2(10). OTLUE. PATE<2>. 

111 

7* 


• CORERTnO).0£RUCF,LlRMIT.PROSAR«LRPSAR. 

111 

7* 


t ASAR1. ASAR. ESARl, ESAR. CTSEDS. EOFHIT. 

111 

7* 


• •E0RAR(PSE0t>.TRRRO.TSTRO.DESR01.DE$i02.DUPR0 

112 

7« 


CORROR /ORUR/ lfADDR. mA00(PAGC0l). C0LUC(PA6C0U, ROCOL. 
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• •IIS 
••IIS 
••114 
••114 

••ns 

••IIS 

••ns 

••ns 
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••IIS 
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• 012 ^ 
••120 
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•0120 
•0121 
•0122 
•012S 
• 012 S 
•• 12 S 
•012S 
•012S 
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•012S 
•012S 
•0124 
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•0127 
•01S0 
•01 SI 
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•01SS 
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•01 S4 
•01S4 
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•01SS 
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•01 S7 
•0137 
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•0140 
•0140 
•OU 0 
•0140 
••140 
•0140 
•0140 
••140 
••140 
• 01 ** 
• 01 ** 


• IOCQH0, MOLLli. M0LMRD« DOOtfOT. 

■ rOR(i>. ALADD. OEALII. SVnPAC. TtmiEA 

CONflOl /1«FI2W M2«AO. 0SP10T(2>, OSPTTRv FLOCSC. ItPTS. IKLIME. 

• ILINST. ILIREO. 1U«IC. ISARST. tSAAEO, ISARIC 
CONIIOI /CORSAN/ SAHSOttlPARSAfO. I<UPSAHPS.4>.NOLA«0{PARSA11,2>. 

• 0UF0T. UITFAS, JSTAT<2> 

CONROO/URTtES/ RAP<0ARFU>. OTElLEf PARE M ) . TlRfU. 

• CTFUE. ISLTSTIPARFU). M0LTST(PARF|U. totpct, 

• •ERCR7(0OunR.PARFtL>.2CRl(PARFIU. 

• SRCfOOUTLH.PARFIL). I SLDCNIPARFtl > . 

• NaLECHIPARFUI. TISLCN. TnOLCN 

• .ATFltf 
CRD 

IRCLUOE COROK*,IIOT 

CORNOR/GLOIAL/HEAO(42),RAPTAP.OATAPE.SAVTAP«aRFlLl,|Rl^EY> 
t MIIFIL.HISKET.TRFORR.ERlPTP.ERPtEY.RAPUIT.ROFUE. 

• DRURA0.0RRH0S.PA6S12.0ATFIL.STAFIL 

• .FI2URT.FI2KEY.F1ZFIL 
KRO 

IRCtUDE CRBKiO.LiST 

€ORROR/OtSPL/CATFLG.CATRAR(*1>.CLSRAR(*n*SU0RAN(*i).SUBRO<*O>« 

• |UlCATf*O).CLSSUO(6O>,RORAP.TOTVTS.ROSU03> 

• •CFOKT.TOTREV/TRIKEY.THRSKV.STAUr.ERPTRS.THRSVA. 

• PLTlCV.0HFtG,|RCOHB*|RFEAT.CDATE(2n 

t PLD|V2.FIELD2.VERtX2;FLOSV3.FIELD3»VERTXS.PCTIOS, 

• THRES(*O>.tYRRTX(44>.MlGH(*0>.COR(*O) 

• .FLDkEV.ROF4.02.BOFLOS.ROFET2.F€TVC2(SO) 

• .R0tUI2.R0TRF0.T0TVT2.l0ClS2 

• •RATR0<*0>.R0CAT*FUTER.RAPFRT 

• .DEIAGT.OESURI.OESOTN.CROP . ACROP. AOTMER. ATOTAL 

• ,tlTE(4>«AIALVS(S1.CARS<10).CRPKET 

• .(iFltE 
ERO 

DIRERSIOR 1CARD(70). IRSTATC4). IRURDSC4> 

PARARETER PAR0IS:7*O. PARCL0=42. PARARFsIS 

DIRERSIOR DUROtS(PAROlS). OURGLO(PARCLO) . ARF I21f PARARF ) 

DIRERSIOR PTSTR(POUTLR>. SYRCHK(P0UTLR. 2) 

DIRERSIOR ZSEDCPSEOI). ZOURY<PSEOS> 

PARARETER PARARR < *000 
DIRERSIOR ARRAY CPARARR) 

DIRERSIOR DESSVR(2. 2). DESC0D<2> 

EDUiyAtERCE STATERERTS ‘ 

EOUlVAiERCE (PTSTRCn.IRO.D). (NOtARRf 1>.SYRCNK( 1.1 >1 
EOUIVAIERCE iOUROtSCn.CATFLC). <DURGtOn>.HEAOC1l> 

EOUlVAiERCE (ARFU1cn.FlZRAR> 

DATA STATERE RTS 


/, SEORARC 2)/4H-7.S /. 

/. SEORARX 4)F4H"S.S /. 

i, SEORARX *)/6M-S.S /, 

/. SEORAR< S)/4M-i.S I. 
SEORARX f)/6M-0.7S /. SE0RAR<10>/*H-d,2S /, 
SEORARX V1>/*H«0.2S /. SE0iAR(12)/*H*0.7S /, 


DATA SEDRARX 1>/*N-7.f 

• SEDRARX S)/*H'*.S 

• SCDRARX S)/*N-*.S 

t SEDRARX 7)/«H>2.S 


SEORARX IS) /*HM .S 
8E0RARX1S)/*H*S.S 
SEORARX 17) /*H«S.S 

SEDRARX 1f)FAN*7.S 
SEDRAR(21)/«HMATER 


F, SE0RARX14)/4H*2.S /. 
/. SEDRARX1*)/*H*4.S t, 
/, SE0flAR(U>/4H**.S /, 
/. SE0RAR(20)/*H*7.f /. 
/ 


DATA TAPOUTM/* OTURT/lf/. SKPLIR/20F. SRPSAR/O/. URtfAI/ZO/, 

• ORTFA2/21/. MOLTST/PARFUyS/, ISlTST/pARFU.S/ , DFTC0D/12S7. 
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41* 

001AA 

42* 
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43* 

001AA 

44* 
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4)* 
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4A* 

0022) 

47* 

002S1 

40* 

002)4 

40* 

002SA 

30* 

0023A 

)1* 

002SA 

)2« 

002SA 

))• 

002IA 

)4* 

002SA 

))* 

002 A 1 

)A* 
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)7* 

002AI 

30* 
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30* 

002AS 

AO* 

002AS 

A1* 

002AS 

A2* 

002AS 

AS* 

002AS 

A4* 

002A) 

A3* 

002A9 

A A* 

00312 

A7* 

00312 

Alo 

00312 

AO* 

0032) 

70* 

0032) 

71* 

0032) 

72* 

00341 

73 • 

00343 

74* 

00343 

73* 

003)2 

7A* 

003)2 

77* 

003)2 

70* 

003)2 

7f* 

023)2 

• 0* 

00402 

01* 

00402 

02* 

00404 

03* 

00404 

14* 

0040A 

03* 

0D412 

OA* 

00414 

07* 

00414 

U* 

00414 

Of* 

00414 

fO* 

00417 

f1* 

00420 

02* 

00420 

03* 

00420 

04* 

00420 

f)* 

00421 

OA* 

00421 

07* 

00422 

00* 

00422 

ff* 

00423 

TOO* 

00423 

101* 

00424 

102* 


• OFTSTfHDIINt/. OFTSTfl<2>/1M /. f*A»/FAtF IL« 1 / . 

• OTFUt/FA«f U«W.TlRMt/W,CTf Ilf /O/. 

• 20MLliM.2)00/.20fl$AII/V.2)00/.UNLII/1SO/.linSAII/A2)/« 

• OftUGF/0/. LINH|r/ 0 /. CTSEO/21/. SfOKEWI/ 

• .Fllf/1/ 

DATA OUltNV/O/ 

DATA TAiSVH/***/. T*TSV«/ * * ‘ » OUF*TH/ t*/ 

DATA SAMIIC/W. lllliC/iy. tAHSTA/W 


DATA ilAIK/AN 
DATA |VH/FSTA*AN 
DATA StA(1.n/1)<l/ 

• tVN(5. 


. OA5N/AM-- i 

t 

SVN<1.2)/IH//. |TII(2,1>/1Hr/« SVN(2.2>/1H//, 

tVIM3,2>/1H//, ftVN(4.2>MH//. 

SrA<A.1 WlHS/« tVA<4.2)/1H//. 

STII<|,2>/1H//. 


iATA SVN(11,n/1N«/. 

• SVA(t2.1>/1H1/. 

• tVA<1S.)>/1NW. 

• SVAMA.IWINl^, 


SVN().2)/1N// 

tVH<7.1)/1H2/« iVN<7.2>/1H//, tVA(l*f>/INW 

tVA<U.1)/1MO/. SVH<10.2>/tH// 

*yA<11,2>/1M*/, 
tt«n 2 , 2 >/ 1 M*/, 

SVMnS,2>/1H /, 

SVNnA«2)/1N t, 
tV«(1S«1>/1MS/. SVN<1S*2>/1M /. 

t 9VHCU.1)/1N42« tVN<U*2)/1H /« 

• tyHM7.2)/1H /, 

t tVnfU.IWIHA/, tVlt(U.2>/1H /, 

• $VN(1A.1>/tH7/. tVA(19.2>/1H /. 

• SVH<20.f tVN<20.2)/1M /. 

• tVH(21.n/|M /. tVN<21,2>/iH /, 

DATA CODEn>/ M, C00EC2>/ •/. CQ0E<3)/ 2A/. C00E<4>/ 40/. 

• CODE<5)/ SA/. CODEIA)/ 72/. CODE!/)/ Al/. CODEC t> /104/ . 

• CODE(f>/11A/. C0DE(10)/I24/ 

DATA C0DEC11)/132/. C00EM2)/U0/. C0D€< 1 1) /132/ * C0DE<14)/Ut/. 

• C0DE(1S)/U47, CODEMA>/200/. CODEC 17>/2U/ . CODE! ID /232/ . 

• C0DE<1f>/24A/. CQDEC20>/2S4/. C0DEC21)/17 a/ 

DATA UiTF 12/11/ 

DATA DfStynU.D/INy/, DEASVHI2.1)/)M / , DEICODCI )/21V/. 

• 0EStTN(1«2)/1N«/. 0ESSVNC2.2>/tH /. DESC0DI2>/2‘ / 

DATA RAXCAD/27/. IDOF/0/, IOSTA/0/. IDO$/0/« ID20R/0/. IDLlR/0/. 
t I0S8L/0/, IONOL/0/. IDSKF/0/, IDCOD/0/. lODC/0/. IDSUG/0/. 

• iOFU/O/. tOHED1/0/. IDHED2/0/. IODAT/0/. IDCOR/O/. 

• tDUOS/O/.IDFlT/O/.CRDCT/O/.EAROA/O/.IDDEt/O/ 

• .CTFILE/0/ 

DATA HE01/AN . AM . AH IVt. AHDOl AH JONH. 

• AMOl SDA. AHCE CER, 4HTER .AH .AH / 

DATA HED2/AH .AH .AH .AH H. AHOUfTOR, 

• AH. TE)CA, AH$ .AH . AH « AH / 

DATA CORERT/tO*AH /. ER(^COO/f f 4AA/. EOFHlT/0/ 

DATA OUTIRP /POUUR/ 

DATA DATE! 1> /AH /. DATE(2>/AH / 

FORHAT RTATEHERTt 
10 FORRAT (AA.A4.70A11 

]0 FORHAT C1H1.3AX. 'CHECK LEAD CARDS FOR PROCRAH FUZONV. / . 

• 5AX.55I'**>./././.T50.*(‘0*).10<‘1*).10C*2'),10(’S‘), 

• 10<*4*>.1Af *S‘').10<;A*).10<'7*>. T50.IC*125*167I9P ) 

• ./) 

SO FORHAT (2X.'«*«ERR0R*** CARD i0ERT!FlCAT10RV.TS0,AA.A4«70A1 , 

• /.TS0.AA.A4./> 

AO FORHAT C2X. ^ tttERROR* • • DUPLICATE CARO ID.'. TS0.AA.A4.70A1./. 

• TS0.AA.A4./) 

70 FORHAT ( 2X . ^ • • •ERROR* • • 

• TA0.70A1./) 

7S FORHAT (2X. ' •• •ERROR** * 


ERROR IR CODE<S>'.T50.AA.A4.70A1./. 

SAD HERE AD FORHAT TSO.AA . A4 . 70A1. / . / ) 
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1 . 


RMs 

103 

• 4Zt 

104 

t4Z7 


0430 


•411 

107 

0431 


I4SZ 


0433 


•434 


•43S 


04SS 

113 

• 43S 


•4St 

m 

0434 

114 

•4St 

11/ 

04St 


l4Jt 

lit 

•4St 

120 

0437 

1Z1 

1441 

122 

0441 

123 

•442 

124 

•44S 

12S 

0444 

124 

0444 

127 

044S 

121 

044S 

12t 

0441 

130 

0447 

131 

04 SO 

132 

04S1 


04 SI 

134 

04ST 

1SS 

04S1 

134 

04SZ 


I4SZ 

111 

04 SZ 

lit 

04S3 

140 

04S3 

141 

04S3 

142 

04S4 

143 

04S4 

144 

04S4 

14S 

04S4 

U4 

04SS 

147 

04St 


04St 

Ut 

04St 

ISO 

list 

1S1 

04S7 

1S2 

04S7 

1S5 

04S7 

154 

0440 

1S5 

044t 

1S4 

0441 


0442 


0443 


0443 


0443 

141 

044S 


0443 

143 

0443 


0444 

14S 


It FOtltAT (ZX.*«tiGOOD ••• tttUT CARO* .Tit. At, AA. 7tA1 . /. / » 
tt FOMAT MOX.ZFl.Ol 
100 FORRAT (lOX.IOIl) 

Itl FORMAT <10X.1^.AX.AS.ZX,A1) 

Itt FORMAT CZX.aitCRROR*** fRROR tt CODE ( I ) * ,Tlt . At. AA. 70A1 , / . 

• TtO.lAl./) 

lit FORMAT CZX* •••VARIAtLES CHECKER L ATER • • • ‘ .Tit. At. AA. ZOA1 , / , / > 
IZt FORMAT OOX.IOn) 
lAt FORMAT ilOX.I^At) 

Itt FORMAT </,TI. •••ERROR*-- FIIZOM. /.TZO. TOO MART lEAQ CARDS * 

• 'HAVE lEEl READ.*. /.TZO. 'to MORE LEAD CAROS HILL IE *. 

• READ.*./) 

I/O FORMAT C/,/. /.TAO. 'SUMMART OF ItPuT TARE %/ .TAO, 21 <*-•>././,/ , 

• TZl./IRFU IRPUT OR LOO UAL UR IT ’ , IZ , * . * , / . / , 

• TZS,‘1HFIZ FILE'.IZ.* CEMERATED OR ’«ZAt,‘ AT 

• AZ. *r ,AZ. I-.AZ. 

• ' MILL IE PROCESSED.'./././. 

• TZl.’SUMMART OF I RPUT SCARRER DATA l ' . M 
lit FORMAT <TZt.*R0 THRESHOLDIRG HAS SEER APPLIED^'./T 

111 format (TZt.'CHl SQUARE THRESHOLDIRG HAS lEER APPLIED.'./) 

112 FORMAT <TZf, ‘EMPIRICAL THRESHOLDIRG HAS lEER APPLIED.*./) 

IIS FORMAT (TZt. ‘USER'IRPUT THRESHOLDIRG HAS lEER APPLIED.’./) 

Ill FORMAT (TZt. ‘PROCESSOR DISPLAY APPLIED SPATIAL FlLTERIRG. * . / ) 
Itt FORMAT (TZt. PROCESSOR DItPLAT 010 ROT APPLT SPATIAL FUTERIRG 

• ./> 

ZOt FORMAT (TZt. DATA CLASSIFIED FOR MAPTAP FILE '.H.* OR ‘.At.AA 

• ’.'./) 

tit format (TZt. RUMIER OF IRPUT LUES «',I5,%*) 

211 format (1H-.T1S. ‘•••ERROR***') 

220 FORMAT (/.TZt, 'RUMIER OF IRPUT SAMPLES «'.IS.'.') 
tst FORMAT (/.TZt. 'RUMIER OF CLASSES * IZ. *.'./, /. 

• TZt, 'RUMIER OF SUICLASSES * ’ , IZ. ' . ' . /,/. 

• TZt. 'RUMIER OF TRAIRIRO FIELDS « *. 12. 

• /.TZt. 'RUMIER OF TEST OR OESIGRATE FIELDS «*. 13,'.') 

240 FORMAT (/.Tl.‘ ■••ERROR*** FILZOM' , /.TZO. 'RUMIER OF SAMPLES ' . 

• TO SKIP IS./. TZO. RUMIER OF SAMPLES OR IRPUT TAPE 

• IS) 

tst FORMAT (/.Tl. '••■ERROR*** F ILZOM './ .TZO. RUMIER OF LUES TO *. 

• 'SKIP *‘.15. /.TZO. RUMIER OF LUES OR UPUT TAPE s'. 

• IS) 

ZtO FORMAT (/.Tl. ‘•••ERROR*** FILZOM' ./.TZO. 'ERROR CODES ARE ' . 

• 'LESS THAR 1 OR GREATER THAR ZSS OR ' . / .TZO. ' THE CODES'. 

• * ARE ROT UHlOUE. '././. TZS.'SUICLASV.TSS. -CODE'. 

• /.TZS,U’-').T35.'— — './) 

ZtS FORMAT (TZ0.12.‘.*.TZt.At.T3S.U.T40.At) 

270 FORMAT (/. Tl. ‘ ■• •ERROR* • * F llZOM ‘ ,/, TZO. 'ZOOM LIRE FACTOR * '. 

• FIO.S./.TZO.'THE skip lire VARIARLE IS IR ERROR CM 

• /.TZO.’THE ZOOM LEAD CARO IS U ERROR OR*. 

• /.TZO, 'THE LIMITS LIRE VARIARLE IR ERROR. ') 

210 FORMAT ( / .T|,' •••ERROR*** FILZOM' ./ .TZO.j'ZOOM SAMPLE FACTOR 

• F10.3./.TZ0. 'THE SKIP SAMPLE VAMIAILE IS IR ERROR OR ' 

• /.TZO. 'THE LIMITS SAMPLE VARIARLE IS U ERROR. ') 

300 FORRAT (/, /,/.T*0,’ PROCESS UG FOR FILZOM* ./,t40. il ('-'),/./ , 

• TZS.‘ TAPE OUTPUT OR LOGI CAL URIT ' .U) 
lOZ FORMAT (1M*.TSt,‘-- URIVERSAL FORMAT,*./) 

SOI FORMAT <1M*.TU,'^- LARSYS M FORMAT.^/) 

ni FORRAT (TZS.'OR UPUT TAPE ICFORE PROCESSUC lECUS '.14. 

• ‘ LUES MILL IE SKIPPED.', /./.TZS.'OR EACH LUE 

• ‘OF THE ttPUT TAPE *.14.' SAMPLES HILL IE SKIPPED.'. 

• /./.TZS.'ZOOM LUr FACTOR * *,F10. 3./,/, TZS, 

• 'ZOOM SAMPLE FACTOII s ' , FIO.S. / . /. TIS. 

• 'LIRE LIMIT *',110,/,/. TZS, ‘SAMPLE LIMIT »*.I10./) 

STS FOMMAT (TZS.'UPUT LUES'^IS.' TO . IS. ' MILL SOT IE PiOCESSED 
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I 

•«4*S 

tl4«S 

••44* 

• •444 
••444 
••44}* 
••44^ 
••4M 
•0471 

• 0472 

• •472 
•0472 
••47S 
••47S 
••47S 
•0473 
•0474 

• 0474 
00474 
•0475 
•0475 
•0475 

• 0475 
•0475 
•0475 
•0475 
••474 
••477 
•0500 
••501 
••50V 
•0501 
••501 
•0501 

• 8502 
••503 
•0503 
••504 

• 0505 
••505 

• 0504 
••504 
•0504 
•0504 

• 0507 
•0507 
•0547 
•0507 

• 05 VO 
•051V 

• •111 
•0512 
•0513 
•0514 
•0515 
•0514 
••517 
••517 
••52« 
••521 
•0522 
•0522 


144* • *DUi TO THC 20011 ill£ FACTOO.'./) 

147* 317 FOOAAT (T25.‘0UT0Ul LIIE5 ’.15, ‘ TO 'ill,' IMU OC OEFAUIT 

14I* • 'VAI.UE5 DUE TO THE 200N UIE FACTOO.'./) 

14f* 32* FORRAT <T2|. OO EACH lOPUT LIRE, SARPLES' • l5. ’ TO ’.15, 

170* • ’ Mill lOT OE PROCESSED OUE TO THE 200R SARPiE FACTOR. ' , 

171* • /> 

172* 322 FORRAT <T25. 'OUTPUT tARPLE ,15.’ TO ’,15.* HlU IE DEFAULT 

173* • ’VALUES DUE TO THE ZOOR SARPLE FACTOR. ',/ ) 

174* no FORRAT <T25.'ISLAiD TEST * .10I5> 

175* 331 FORRAT < /.T25. 'UICLASSIFIEO PIXEL TEST (HOLE) * ’.1015) 

174* 332 FORRAT (/ .T25. ’DEFAULT CODE FOR UlCLASStFIEO PIXELS • ’ .TOO. I 3. / . / 

177* • .T25. ’DEFAULT STRIOL FOR UICLASSIFIEO PIXELS s'.TM.AI. 

170* * /.1H*.T44.A1> 

170* 333 FORRAT ( / ,T25 , ’DES1GRATED CODESt ’ . TSO.’URIDERTIFIED »’,T45^IS. 

no* • T75. ’OTHER a’ .TI5, |4./, ^T25, OEIICRATEO STROOLSt', 

111* » T50. 'UllOEITIFtEO i ' ,T45 ,A1 ,T75. 'OTHER « ’ . T|5 . A1 . / , IN* . 

112* • T45.A1.T05.A1> 

103* 335 FORRAT < / .TO. ' •••ERROR*** F ILZOR* . / ,T20. 'A CROUP CARO SHOULD ’. 

ISA* • ’HAVE lEER USED 10 SCLASStFV TO CROUP THE TUO OR RORE*. 

Ill* * ’ OIFFEREIT SUBCLASSES II A CLASS. ’./) 

104* 340 FORRAT ( F . Tl« ’ * * *ERROR* *• F ILZOR* «/« TZO, ’ SORE OF THE IIPUT SED ’ 

107* * .'CLASS lARES ARE lOT VAL ID. ' .T20, ’RERUI THE JlOl USIlCS 

Hi* * .’A lOSEDS LEAD CARO. A SVRIOL LEAD CARO. A CODE LEAD ’ 

Uf* • ’CARO, './.T20,’A DEFAULT S LEAD CARO. A DEFAULT C ’. 

100* • ’LEAD card aid A OESICIATE ’. 

lOlt • 'LEAD CARO, ’/.T20. THE CLASS lARES II ERROR ARE RARKEO.’. 

102* • /.7.T50, ’CLASS lARCS ./.TlO, 

Ifl* 342 FORRAT (T50, 12. ’ . ’ .ZX.AO.IX, A4> 

104* 345 FORRAT (T4f .A4.1X.A4) 

If 5* 35« FORRAT (14>- 

m* 340 FORRAT (/,T4.’***ERR0R*** F ILZOR ,T20, ' SORE OF THE SVRBOLS '. 

107* • 'ARE lOT UIIQUE. /.TZO, 'CORRECT THE SVRIOl LEAO CARDS 

in* • 'AID/OR DEFAULT S LEAD CARO.’. 

Iff* • |,/.T50.'SUICLASS lARE’.TTO. ’STR0Ol’./.T5O.1O(’f’>. 

200* • T70.4C •-’»,/) 

201* 345 FORRAT (T4f.l2,’.’.2X,A4.T7S.AV./.1H*.T7S.A1.T74.A4) 

202* 40« FORRAT (/./, /.T40. 'SURRARV OF OUTPUT FOR FtLZOR'./. 

203* • T40.2I<**’)./,/) 

204* 405 FORRAT (T25. 'OUTPUT FILE M2.’ 01 Ul IT '.13) 

205* 410 FORRAT (T25. ’lURIER OF RECORDS THAT NAVE SEE! READ FROR ' . 

204* • ’LOGICAL UR IT ’ . 1 3, * * ’ . 1 5 , ' . " ) 

207* 415 FORRAT (TES.’IUROCR OF UICLASSIFIEO PIXELS THAT HAVE lEEl *. 

201* • ’RECLASSIFIED OUE TO THE HOLE TEST (’.12.’) FOR FILTER’. 

20f* « 12.* • ’.14.’.’./* T25. ’TOTAL lURIER OF HOLE PIXELS THAT’ 

210* * ’HAVE lEEl RECLASSIFIED ’.14.’.’) 

211* 414 FORRAT (T25. 'lURIER OF ISLAID PIXELS THAT HAVE lEEl 

212* • 'RECLASIIFIEO DUE TO THE ISLAIDI M2. ’ ) FOR FILTER ‘ « 

213* • Ur* » :i4,'.',/.t25, total lUNOER OF ISLAID PIXELS THAT’, 

214* • ' HAVE lEEl lECLASSTFIED *',I4.'.*> 

215* 420 FORRAT (T25. ’TOTAL lURIER OF ZOORED OUTPUT POllTS * ’ .14. ’.'./. /) 

214* 44« FORRAT (T55. ’PERCERT TAILE ’./ ,T55. 1 31 ’•')*/./ *T37. 

217* * 'lUiCLASS IARE’.T57. ’TOTAL POUTS' .T74«’PERC£ITACES ’./) 

211* 440 FORRAT (T41 *A4. T5f . I4.T74, FI. 2) 

21f* 445 FORRAT ( 10X. IS. ISX. 15) 

220* 504 FORRAT (/./.T20.’TIRI FOR FILZOR s’.FO.S.' RllUTES.’) 

121* 510 FORRAT <VX.F5,0> 

222* 515 FORRAT (F4.0) 

223* 520 FORFAiJ* f/./.T25.’F0R FHTER ’,11,’ THE AVERAGE CRI FOR All ’. 

224* • 'LAID PIXELS IS ’.F7.3.*.’) 

225* 500 FORRAT ( 1H1 , 10X. 'OAtA II ARRAT ’,A4. /./,/> 

224* 515 FORRAT (10(4X. 13.’* rlX. 13)) 

227* no FORRAT (/,TS.’***EIROI*** FtL20R‘./. T20. ’RECORD *.I4« 

221* * ’01 FILE’.IS.’ 01 LOGICAL UIIT’. IS.' HU Al EOF.’) 


ORIGINAL' PAGP ,q 
OP POOR 


0-9 


T 


Ni 


I 

•Mil 

••111 

• MI4 
••114 
••111 
••111 
••!!• 
••lift 
•0114 
••111 
••117 
••117 
••117 
••117 
••!!• 
••114 

• •IS^ 
••111 
••111 
••111 
••111 
••lit 
••111 
••111 
••111 
••111 
••111 
••111 
••111 
••111 
•0114 
••111 
••134 
••117 
••141 
••141 
••111 


•0411 

••414 

••440 

••441 


. 11 . 


••1 fOMAT FlllOft* ./.TIO.'LOCiCAL UilT* 

• * i«A» A 

• 'OAAITV fRROA OR 7|LE '.II. 'OR RECORD'.U.’.M 

•10 EORRaT (I.Tt.'THE RREVIOUSLT RARKEO ERR0R<S» CAUSED THE RROCRAR' 

• • TO ERROR ERIT. 

• 11 EORflAT (/.Ti.'txERRORo* f UlQR './. TIO. 'ERROR IR SuRROUTIRE '. 

• ‘MISOM. './.TiO.'CAlL A RROCRARRER.' ,n 

•10 EQRRAT C/.TI.'**iCRROR»*« f U20N ' . V ,TIO . ' IRF 1 2 OR LOGICAL URIT', 

• II,' IS ROT IR THE CORRECT TORRAT.-. /.TIO, 'A LISTIRC*. 

t » OF THE RHTSICAL RECORD FOlLOySt'./, KlV.OH)) 

•21 FORMAT |/.TI. V«««ERRORto FUZON' . /.TIO. 'FLORET |R CORMOR 

• 'OLOCR OlIRl * Ml.' .'./.Tie. 'FLORET MUST EQUAL 1 

• 'HNICN IRDICATES OROURD TRUTH FIELDS ARE ASSOCIATED'^. 

t ' TO SUOCLASSEI. ‘./.TIO. 'GIVE ALL GROURO TRUTH FIELDS '. 

> 'SUOCLAft RARES ARO RERUR THOSE JOIS.') 

•10 FORMAT ll.TI. *ti«ERROR<*« F ILZOM ' . / .TZO. * F UE RUMOER OR ' . 

• -IRFII TARE I'.ll.'.'./.TZO.rTHE DEStREO FILE '. 

• 'RUMBER «MI. TZO. 'CALL A RROGRAMMER.') 

•40 FORMAT t#,TI.'*«*ERROR**« FILZOM * . / .TZO, 'OR RECORD'. II.' OF 

• 'FILE '.II, ','.11,' HOROS HERE READ. T2«. 'THERE ARE'. 

• tl.' RIXELS OR A LIRE.') 

•10 FORMAT O.TI. ‘t.aERROR*** Fl L20R * . / ,TIOV 

• 'ERROR CORDITIOR OB ATTEMPT TO POSITIOt IRFII OVER'. 

• 11.' FILES. './.TZO. 'FSOSFL STATUS CODE «'.I4) 

•09 FORMAT (/.TO, ’••tCRRORtrt FJ LZOM' ./. TIO, 'TARE URIT '.||. 

t * HAS A RRITE ERROR FOR RECORD '.14.' FILE '.ll.'.'l 


READ ARO RRIRT LEAD CARDS 


call RESET 
REHIRD URTFI2 
REHIRD OTURT 
HRITE 14.10) 

1444 COHTIRUE 

READ (1.10.ER0S2140) CARDV. CARD!. ICARO 
CRDCT > CRDCT *1 


••111 

247* 

IF 

1 CRDCT .GT. MAXCRO) 

GO 

TO 

2110 

•0111 

240 • 

IF 

<CARD2 .RE. SLAIK) 

CO 

TO 

1010 

•0117 

240* 

IF 

ICARD1 .EO. 4H0UTPUT 

) 

GO 

TO 

lOtO 

•0141 


IF 

CCAROI .ED. 4HSTMB0L 

) 

CO 

TO 

2000 

00141 

271 • 


< CARPI .EO. 4HZ00M 

> 

GO 

TO 

2040 

••141 



CCAROI .EO. 4HLIMIT 

> 

CO 

TO 

2040 

••147 

I71* 

IF 

CCAROI .EO. 4N1SLAB0 

) 

GO 

TO 

2010 

••171 

274t 

IF 

CCAROI .EO. 4HH0LE 

) 

GO 

TO 

2100 

••171 

271* 

IF 

CCAROI .EO. 4HUIF 

) 

CO 

TO 

2120 

•0171 

274* 

IF 

CCAROI .EO. 4HC00E 

) 

CD 

TO 

2140 

•0177 

277* 

IF 

CCAROI .EO. 4H0EIUG 

> 

GO 

TO 

2200 

•0401 


IF 

CCAROI .EQ. 4HFILE 

) 

60 

TO 

2220 

•0401 


IF 

CCAROI .EO. 4HFILTER 

) 

GO 

TO 

2221 

•0401 



CCAROI .EO. 4NHE01 

> 

GO 

TO 

2240 

•0407 

2t1* 

IF 

CCAROI .EO. 4HHEDZ 


GO 

TO 

2240 

•0411 

ZtZ* 

IF 

CCAROI .EO. 4HDATE 

) 

CO 

TO 

2240 

•0411 

111* 


CCAROI .EO^. 4HiOSEDS 

) 

GO TO 

1 2110 

•0411 


1010 IF 

CCAROI .EO. 4HC0MHER 

.ARO. 

CAROZ .EC 

•0417 

iti* 

IF 

CCAROI .EOi 4H0CFAUL 

.ARO. 

CAROZ .Efl 

•0421 

214* 

IF 

CCAROI .EO. 4M0EFAUL 

.ARD. 

CARD2 .EO 

••Oil 

217* 

IF 

CCAROI .EO. 4H0ESICR 

.ARO. 

CAR02 .EO 


4HT ) 
4HT S > 
4HT C > 
4NATE ) 


ERROR s ERROR • 1 
HRITE <4.10) CARPI. 
GO TO 1040 
1040 COHTIRUE 


CAR02. tCARD, DASH, OASN 


60 TO 2100 
GO TO 2020 
GO TO 21 to 
GO TO 1111 

• SAD IDEHTIFICATIOR 
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• OU^llCATir ID. 


il 

11 

11 
I* 

If 

if 

rt 

ri 

fZ 

12 
12 
12 
12 
IS 
14 

14 
It 
12 
12 

15 
14 
14 
14 

14 

15 
It 
It 
12 
15 
It 
It 
IS 
14 
It 
It 
It 
It 
It 
it 
f 
fZ 
fs 
fi 
14 
14 
14 

14 

15 
)t 
It 
14 

14 
t' 
(4 
(4 

15 
tt 
It 

14 

15 
It 
It 
12 


252* 

2tS* 

2541 

29S* 

2«4t 

2*2« 

25I* 

2tt« 

Stt« 

Stti 

St2« 

Its* 

S04* 

St5* 

Stt* 

str* 

sts* 

Stf* 
S10* 
111 * 
SI 2* 
SIS* 
114* 
S15* 
lit* 
S17. 
S1I* 
llfi 
320* 
S21* 
S22* 
S2S* 
S24* 
S25* 
S2t* 

S27* 

S2S* 

32t* 

SSt* 

SSI* 

SS2* 

m* 

SS4« 

SS5* 

SSt* 

S17i 

SSI* 

SSt* 

S40* 

S41t 

S42* 

S4St 

S44* 

S43* 

S4t* 

347* 

S4|t 

S4ft 

S5t* 

SSI* 

S52* 

S5S* 

S54* 


ftJIOt s CMOR ♦ 1 

1III17E <4.411 CARD1. SAA02* ICARD. DAfH. O^SN 
GO TO 1041 
It7t CORTIIUE 

MRITE (4.11) CAR01.CAR02. ICARD t GOOD LEAD CARD 

GO TO 104t 
1075 CORTIIUE 

ERROR s ERROR * 1 

MRITE ft.7S> CAR01. CARDS. ICARD D EQIRAT REREAD 

GO TO 1040 

£••••»#••••«••••*••• 

C LEAD CARO OUTRUT 

Itit loot - IDOt * 1 

17 <1007 .GT. 1) go to 1040 
17 < I CARO <5 1 .EO. iMU TA70UT *2 
17 <ICAR0<5) .EG. 1HLI GO TO 1070 

MRITE <4. 70) CARD1. CARD2. ICARD. ILARR. DIARR. DtARIt. DlAlR, 

•DASN. (DLARR. I > t. 70) 

ERROR s ERROR » 1 
GO TO 1040 

c LEAD CARD STRtOl 

Cftt. «.#•••••••••• 

2000 lOSTR « IDSVN *1 

17 (IDfVR .GT. 2) GO TO 1040 
17 (IDSTR .EO. 2> CO TO 200t 
DO 2005 I > 1, IfUDCl 
tVR<I.2) • DLARK 
2005 CORTIIUE 
2000 DO 2010 I s I.IIUICL 

ITRCt. IDfVR) s ICARD(I) 

2010 CORTIIUE 

MRITE <t,110> CAR01. CARDS. ICARD 
GO TO 1140 

C******************* 

C lEAD CARD CE7AULT 0 
C««*«*«*t*t***t***** 

2020 IDOf s IDOS * 1 

17 HODS .GT. 1) CO TO 1040 
07TfVR(1) » ICAROIS) 

07T$TR(2> s ICAROnO) 

MRITE <t»110) CAR01.CARD2. ICARD 
GO TO 1040 

C lEAD CARO 700R 

2040 IDZOR s 1020R t 1 

17 (ID20H .GT. 1) GO TO 1040 

read <30.00. ERR > 1075) 20RL1R. 20RSAR 

MRITE <4.110) CAR01. CAR02. < I CARDC I ) . I «'• . 70 ) 

GO TO 3040 

C LEAD CARD LIRIT 



2040 IDtIR * iptIR * 1 

17 UDLIH .GT. 1) CO TO 1040 
OEAD <30. 100. ERRS1075) LIRUI. LIRSAR 
ARRAf(l) * ILARK 
AR0AV<2) • ilAOk 

17 <tlRSAR .LE. 0) ARRAV<f) » DAfN 
17 llIRLIO .LE. 0) ARRAV<2) « DASN 
If (LIRIAR .GT. 7ARIAR) ARRAKD * OAfN 


■j 


D-n 


1 

333* 

IF <UIIL1R .GT. »AIILti> ARRAY (2) = DASH 

•10U 

334* 

IF (ARRAT(I) .EO. DASH) CO TO 2074 

ftoto 

33 7 1 

IF (ARRAY(2> .£Q. OLAHK) CO TO 1070 

fiAir 

33l> 

207e URITE <4.70> CARDI , CARD2 .UAR0.ILA«K> < ARRAVf 1 > . 

• t0)2 

33f« 

•llARR.(ARRAV(2>.J=1.4).(tLAtK.J=t.40) 

•lift 


CO TO 1040 

f11«f 



• 110« 


C LEAD CARO ISIARD 

flut 



• 1101 

344* 

2010 IDISL c IDISi *1 

• 11«2 

343 • 

IFMDIU .GT. 1> CO TO 1040 

• 1104 

344* 

READ <30. 120. ERR « 1073) lUTST 

• 1112 

14 7* 

ERRT3T • 0 

• till 

340 • 

00 2040 1 s 1.RARFK 

• 1114 

344« 

ARRAY! t) • HARK 

• 1117 

S70* 

IF UUTtTU) .EO. •> CO TO 2040 

41121 

3711 

IF <IAOSn^LTST(l)) .LT. 3) CO TO 20«3 > 

• 1123 

372« 

IF <tARS<lSL.ST(|>> .LE. •> CO TO 2040 

• 1123 

373 • 

20t3 ERRTIT s ERRT3T *1 

• 1124 

374 • 

ARRAY! 1) * OASM 

• 1127 

373 • 

2040 coamuE 

• 1131 

374* 

IF <ERRTST .CO. •> GOTO 1070 

• Ills 

377« 

WRITE <4.104) CARD1.CAR02. ICARO. CARRATU). 1 

• 1147 

37I* 

ERROR « ERROR *1 

• 1150 

37«» 

CO TO 1040 

• 1130 

3I0« 


• 1130 

301* 

c iead card holh 

• 1130 

3S2> 


• 1131 

SUt 

2100 iOHOL • IDMOL * 1 

• 1132 

314 f 

IF <3DH0l .CT. 1) fO 1040 

• 1134 

3I3« 

READ <30. 120. ERR ^0737 HOITIT 

• 1142 

314* 

ERRTIT s 0 

• 1143 

307« 

DO 2110 1 > 1.RARFIL 

• 1144 

3II* 

ARRAY! 1) * HARK 

• 1147 

3I4* 

IF !H01TIT<I) .CO. •) CO TO 2110 

• 1171 

3f 0* 

IF (lAlKHOlTSTfl)) .IT. 3) CO TO 2103 

• 1173 

341 • 

IF <|Alt!MOl.TST(l)) .LE. f> GO TO 2110 

•1173 

342« 

2103 ERRTIT t ERRTST « 1 

• 1174 


ARRAY! I) « DASH 

• 1177 

344 « 

211* COiTlRUE 

• 1201 

343* 

IF <ERRTtT .EO. •) GO TO 1070 

• 1203 

344* 

WRITE !4. 104) CAR01. CAR02. I CARD. ! ARRAY! I >. 1*1 

• 1217 


ERROR * ERROR *1 

• 1220 


60 TO 1040 

• 1224 

344 • 


• 1220 


C iEAD CARD SKIR 

• 1220 



•1221 


2120 IDIKR * IDIKR • 1 

• 1222 


IF !109KF .GT. 1) 60 TO 1040 

• 1224 

444t 

READ (30.100, ERR > 1073) IKRlIR. URSAR 

• 123* 


WRITE (0,110) CARDI. CARD2. ICARO 

•1240 


CO TO 1040 

•1240 


(•■•t t ••• 1 • • 

• 1240 


C iEAD CARD CODE 

• i240 



• 1241 


2140 lOCOD * lOCOD • 1 

• 1242 


IF <I0C(J9 iCT. 4) GO TO 1040 

• 1244 

412* 

IF (IDCOD .GT. 1) 60 TO 2140 

•1244 

413« 

DO 2150 1 • 1. ISUfCt 

• 1231 


COOC(t) * R 

•1232 

413* 

2130 rORTIkUE 

• 1234 

414* 

2140 . J • (IDCOO - 1) • 1# ♦ 1 

•1231 

417* 

t « J •10-1 





V 1.9AIIFUI 


.PARf IL I 





■CAD (10.120. EAA» 1071) <C0DC<U. 1 < J. K> 
uaiTE (0.110) CA001. CAOD2, ICAOP 
60 TO 1040 

C LEAD CARD DEFAULT C 
MOO lOOC : lOOC « 1 

IF (tODC .CT. 1) GO TO 1040 . 

HEAD (50.100. ERRS1071) OFTCOO 
MRITE (4.110) CAliOI. CAR02, UARO 
60 TO 1040 

fm»*m*9*»*f 

C LEAD CARD OEIUG 

2200 lOlUC £ lORUG *1 

IF (1DIU6 .GT. 1> GO TO 1040 
•EAD (SO. 100. ERR=1071) OElUCF 
IF (DEOUCF .EO. 1) GO TO 1070 

HOITE (4.70) CARD1, CARDZ. ICARD. tLAIK. (DASN, I « 1. A) 
•(•LARK, I X 4.70) 

ERROR s ERRO^ * 1 
60 TO 1040 
£•••••••••••«•■••••• 

C LEAD CARD FILE 

2220 IDFIL • lOFIL • 1 

IF (IDFIL ,GT. 1) (iO TO 1060 
READ (30,100, ERR»1070> FUE 
IF (FILE .OT. 0) GO TO 1070 

RRITE (4.70) CAR01. CARDZ, ICARO. ILARK, (DAON, I * 1. 41 
•IILARK. |x4.70> 

ERROR « ERROR *1 
60 TO 1040 

C LEAD CARO filter 

2221 lOFIT • IDFIT ♦ 1 

IF (IDFlT .GT. 1) CO TO 1040 

READ (lv>.10S. ERRXV071) TiNFll. FILRAF. FlLFll 
array (IV £ ILARR 

IF (TIRFIL .GT. RARFll) ARRAY(I) £ DASH 
IF (TINFU .LT, 1> ARRAYd) * DASN 
ARRAY (2) X DASH 

IF (FURAR .EO. ILARK) ARtiAT(2) s ILARK 
IF (FILRAR .EO. 4HRAR ) ARRAV(2) « ILARK 
ARRAY(l) s DASH 

IF (FftFU .EO. ILARK) ARRAYd) * ILARK 
IF (FILFIL .EO. 4HFILES ) ARRAYd) £ ILARK 
IF (ARRAT(I) .EO. DASH) GO TO 2210 
IF (ARRAT(2> .EO. DASH) CO TOrEZSO 
IF (ARRAYd) .EO. ILARK) CO TO 1070 
2210 ERROR < ERROR * 1 

RRITE (4,70) CARpl. CARD2. 1 CARD. < ILARK , I x 1, 4 ), ARRAYd ) . 
XILARK.I « 1. 4 ). array ( 2 ). ARRAY (2 >.ARRAV(2>, ILARK, ILARK. 

• (ARRAYd). I X 1.1). (ILARK. I x 20,70) 

IDFIL X 090 
60 TO 1040 

C lead CARD HED1 

2240 tCNEDl X IPHE01 *1 

IF (IDHED1 .GT. 1) GO TO 1040 
•CAD dO.UO, ERRX107S) HED1 



OEIGINAS 



, J 
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CO TO 1070 


UAD CAOO HlOt 


2240 I0MIO2 s IDNC02 • 1 

10 <I0NCD2 .6T. V> 60 It *0 
OIAO <SO«UO.' EOOS1079) 

GO TO 1070 

UAO CAOD DATE 


2200 lOOAT X lODAr, ♦ 1 ; 

If MODAT .6T. 1> 60 TO 1040 

MAD <so,i«o. EOKsioir)) date 
GO TO 1070 

LEAD CARD CORHEIT 


2S00 lOCOO s IDCOfl • 1 

If <10C0R .CT. 1) 60 TO 1040 

READ (SO.UO, ERRs1074> CORERT 
60 TO 1070 

iEAO CARO GEOt 


2310 lOSEDS > IDIEDS • 1 

If XlDSEDt .GT. 1) CO TO 1040 
6EDKET * 2 
GO TO 1070 


LEAD CARD DEIIGHATE 


2313 100E6 « I00E3 • 1 

If (IDDEt .GT. II GO r 1040 

READ (S0.44},ERRM073l DESCODf 1 ) .DESC0DC2I 

OEtlTNM.n « ICARDC10) 

DES3TH(2,1I > ICARD<13> 

DEISVN<1*2) « ICARO<30) 

0ESSTR<2,2) < ICAR0(33> 

MRITE C4.110) CAR01. CARD2* ICARD 
GO TO 10AO 


TOO RART LEAD CAROS RAVE lEER READ 


2330 CORTI RUE 

ERROR • ERROR ♦ 1 
WRITE fO/UOl 


• TOO PART LEAD CARDS 




1 ... 
•Hir S41* 

• Utl 

• 1*2S U7» 

• U21 

•1422 S4f * 

• US1 w* 

•1432 331* 

•1433 332* 

•1434 333* 

•1434 3341 

•1434 333* 

•1434 334* 

•1434 337. 

•1434 331* 

•1434 33f* 

•1437 340* 

•1449 341* 

•1441 342* 

•1442 343* 

•1444 344* 

•1444 343* 

•1444 344* 

•1444 347* 

•1444 34t* 

•1444 344* 

•1444 376* 

•1447 371* 

•1430 372* 

•1431 373* 

•1433 374* 

•1433 373* 

•1437 374* 

•1437 377* 

•1437 371* 

•1437 370* 

•1437 340* 

•1437 3t1* 

01441 302* 

01442 . 303* 

•1443 314* 

•1444 313* 

• 1447 3l4* 

•1470 317* 

01472 313* 

01474 330* 

01473 300* 

•1474 301. 

• 1477 302* 

•1701 3*3* 

01762 3*4* 

•1703 3*3* 

• 1704 3*4* 

•1713 3*7* 

• 1720 3*3* 

• 1713 3*** 

•1724 300* 

31731 401* 

01734 402* 

01737 403* 

01744 004* 

01743 403* 

01730 004* 


2343 CALL ftOEAD (UOTfIZ, 1, ARFI21. PARAIIF. lOStAKnK lOMOSinn 
2370 17 (tRSTATni) .EO. 1> 60 TO 2370 
IF (|•SrAT(I3> .61. II GO TO *000 
IF (FIZIAfI .OE. 4MI0FIZ > GO TO *010 
IF {FILE .EO. n 60 TO 2440 
IF ISKFILE .GTl 0> 60 TO 2440 

2373 COITIRUE 

IKFILE * file - 1 

CALL FSRSFL <UliTFtZ.$ICFlLE.lRSTAT(l3>> 

IF UR$TAT(13> .RE. 0> GO TO 9030 
60 TO 2343 
C 



C OEAD RECORD FRQR IRFIZ ARO STORE OATA II CONROR OLOCA GLOOAL 

t *•*•*•* 

c 

2440 CORTIRUE 

CTRECD * CTRECO * 1 

CALL RREAD (UHtFIZ. 1, OURGLO, RARCLO* lRfTAT(l3). IRRR0S(I3>) 

2443 IF (iR5TAT(I3> .EQ. 1> GO TO 2443 

IF URSTATCIS) .GT. 1> 60 TO *000 

e 

C******************* •••**• **•••• 

C REAO RECORD FROM IRFIZ ARD STORE OATA II CORROI ILpCK DItRLT 

£••**••*>•«*•«■••*••*••*•**••**••«••«•••••••>••*>••*•*••*«••«•••**••••*•*••*•*•• 

t 

2440 COITIRUE 

CTRECO « CTRECD * 1 

CALL RREAD lUMTfIZ. 1. OURDII. FAROIS. HITATf 13> . ' IRUROK 1 3) > 

2443 IF CIRSTATUS) .EO. 1> GO TO 2443 

IF (IRSTAKII) .CT. II GO TO *000 

IF CF12FIL .RE. FlLE> GO TO *070 
IF IFLORET .RE. 1) 60 TO *010 

C ’ ‘ 

c*************************************^'***** *••*••••••«••*••••••••*•••••••**•«•• 

C MERARC NCAOIRG FOf^ MUTER pUTFUT ARD FRIIT SURRARV OF IRFIZ 



c 

2470 CORTIRUE 

DO 2430 1 » 1,10 

NCAOU* 2) * NEDKt> 

MEA0n*1*> * MED2CI) 

NEAD<I*S1> * CORERT(I) . 

2430 CORTIRUE 

IF <IODAT .Gt. 0> 60 TO 2300 

CALL TOATE (DATE) , 

2300 HEAD(13) s DATE(I) 

REAOdO) * 0ATE(2) 
liRITE <4. HEAD) 

FL0(0,12.1HR) * FLDIO.IZ.OSRVTR) 

FL0<0,12.IRU) • FL0(12,12.0SPTTR) 

FID<0.12.ISEC> * FL0(24,12,03FtTH) 

•RITE (4,176) URTF12. FUE, OSPVOTd), DSPVDT<2>,|HR, |R|R, ISCC 
IF iTHRSKT .£0,. 0) HRITE (4.110) 

IF (THRSAV .10. 1) HRITE (4,131 > 

IF (THRSRV .EO. 2) URITE (4.UZ) 

IF (THRSRt .EO. 3) HR HE (4,113) 

IF (FILTER .EO.O) HRITE (4.190) 

U (FILTER .EO. 1) HRITE (4,1*1) 

URITE (4.200) RFILE,C0ATE(1>,C0AtE(2> 

CHECK s ((ILIRED-tLlRST)»UlRIC>/UUIC 

HRITE (4^210) IILIIE 

IF (CHECK .CO. IRLIRS) 60 TO 2349 





IM. 

470* 


IF UDSm .6T. 0> CO TO 4004 


•20«* 

471t 


00 )000 1*1. IO)Ut2 


•2071 

472* 


STMi.n * simiTMcn 


•2072 

47). 


4T1UI.2> * ILAIC 


•207S 

474- 

SOOO 

1 C04TIIUC 


•207) 

47). 

4000 

1 If <1DDS .EO. 0) OFTStntn 3 STMflTXdOfllO) .1) 


•2077 

474. 


If MODS ,EQ. •> 07T$riU2) = 4LA4K 


•2101 

477. 


If MDOC .EO. •> D7TC00 * ■0SU42 « 1 


•210S 

471 . 


If (lODE) .EO. •> DESCODCi) 3 OESUNl 


•210) 

474. 


If (lODES .EO. 0) DetC00<2) « DESOTH 


•2107 

440. 


If flOCOO .CT. 0> CO TO 4)00 


•2111 

41 


00 4010 1 * 1. lOSUtE 


•21U 

442. 


COOECI) 3 I 


•211) 

40). 

4010 

C04T1IUE 


•2117 

414. 


GO TO 4300 


•2117 

41). 

C 



•2117 

444. 

C 

VALIOATE SEOI CLA$) lAHE) UlTH THE CIA)$ lARES 01 THE I4f12 TAPE. 

•2117 

447. 

C 

IP THE tiPUT ClAS) HARES AGREE HITH THE SEOl RAREt. 

THE DEFAULT SYR 

•2117 

444. 

C 

ARRAY AlO THE OEfAlUT CODE ARRAY HILL IE PUT tO THE 

lARE ORDER AS THE 

•2117 

44«. 

C 

IRPUT CLASS lAREl. 


•2117 

4f0. 

C 



•2120 

401. 

4040 

COHTIRUE 


•2121 

402. 


CHECK 3 1 


•2122 

40). 


00 40)0 1*2. H0SUI2 


•212) 

404. 


If iSUIRARd) .EO. SUMAR<1-1>) GO TO 40)0 


•2127 

40). 


CHECK * CHECK « 1 


•21)0 

404* 

40)0 

CORTIIUE 


• 21)2 

407. 


IF (CHECK .IE. H0CLS2) GO TO 00)0 


•21)4 

404. 


00 4070 1 * 1 .PSEDS 


•21)7 

400. 


IF iSEOlARcn .GT. 4N. ) DECODE l4.)10.SEDRARi 1 > 1 2SEDM> 

•214) 

700. 


IF (SEDIARd) .LT. 4M# .AID. SEDRAR(1> .IE. 

4HHATER > 

•214) 

701. 


» DECODE <4.)1).tE0RARcm ZSEDCll 


•2147 

702* 


If (SEDIARU) .EO. 4HUATER > ZSEOd) * 0.0 


•21)1 

70). 

4470 

COITIIUE 


•21)) 

704. 


DO 4100 1 * 1. I0CLS2 


•21)4 

70). 


ARRAVCl) * ILAIK 


•21)7 

704. 


DO 4040 jsl.CTSED 


•2142 

707. 


If (SEDIAR(i> .EO. CLSRARd)) GO TO 4440 


•2144 

704. 

4040 

CORTIIUE 


•2144 

700. 


ARRAVd) 3 hhERROR 


•2147 

710. 


ERROR 3 error . 1 


•2170 

711. 


ERRSEO * ERRCOO 


•2171 

712. 


CO TO 4100 


•2172 

71). 

4040 

PTSVRd) 3 .1 


•217) 

714. 

4100 

CORTIIUE 


•217) 

71). 


IF (ERRSED .EO. ERRCOO) GO TO 0040 


•217) 

714. 

C 



• 217) 

717. 

C 

ARRAICE SEDS COO^t II THE ORDER Of THE SEO IIPUT CLASS RARES 

•217) 

714. 

C 

OR UFI2 TAPE 


• 217) 

710. 

c 



•2177 

720. 


If (lOCOO .GT. 0) GO TO 4140 


•2201 

721. 


00 4120 1 * V.CTSEO 


• 2204 

722. 


MOLARId, 1) ■ CODEd) 


•220) 

72). 

4120 

COITIIUE 


• 2207 

724. 


00 4140 1*1, I0CLS2 


• 2212 

72). 


#T * PTSYRd) 


• 221) 

724. 


CODEd) 3 HOLARR(PT.I) 


• 2214 

727. 

4140 

COITIIUE 


•2214 

724. 

4140 

00 414) 1*1. I0CLS2 


•2221 

720. 


20URYd) * ZSEOd) 


•2222 

7)0. 

414) 

COITIIUE 


•2224 

711- 


00 4l70 1 * 1.I0CLS2 


•2227 

7)2* 


IT s fTfVN(|> 
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I 

•Z2S1 

•2ISS 

• 22)1 

•22)1 

• 221 ) 

•221V 

•224* 

•2241 

•2242 

•2244 

•2247 

•221« 

•2211 

•2212 

•2212 

•2212 

•2212 

•2212 

•2214 

•2211 

•2214 

•2217 

•22M 

•2241 

•2242 

•224) 

•2244 

•2241 

•2244 

•2247 

•2270 

•2271 

•2272 

•2271 

•2274 

•2271 

•2274 

•2277 

•230t 

•21^1 

•2102 

•2101 

•2104 

•2101 

•2304 

•2307 

•2107 

•2307 

•2107 

•2110 

•2110 

•2)10 

•211« 

•2111 

•2112 

•2314 

•2117 

9ZU9 

•2121 

•2122 

•212) 

•2124 


7)1« 

734. 

7ii« 

734* 

717. 

7)0» 

710. 

744« 

741# 

742# 

741* 

744. 

741. 
744* 
747# 

740 • 
740* 
710* 
71 1« 
712* 
711* 
714* 
711- 
714" 
757. 
750. 
710. 
740* 
741* 

742. 

741 • 
744* 
743* 

744* 

747* 
740* 
740* 
770* 
771* 
772* 
771* 
774* 
771. 
774* 
777* 
770 . 
770* 
7I0* 
7*1* 
702* 
701* 
714* 
741* 
714* 
717* 
7U* 
740. 
700. 
701* 
702* 
701* 
704 * 
701* 


2$ED(|) s ZOUNKOT) 

4174 C0ITI4UC 

If tioivn .CT. •> CO TO 4100 

t 

C AiOAICE SEOS tVNtOLf II TMC OiOEl 07 THE UO t■•UT UAtOCS. 

c 

DO 4140 I = 1. CTVEO 

1TICHK<I.1> s SVH(|.1> 
tmCNIKl.Z) S VVIM I ,z> 

4110 COlTIIUE 

DO 4200 I : 1, I0CLS2 
•T s 0T9VR<n 

fvR<i,r» I iinchk(pt.i> 

tTfld.Z) ■ ttRCHKCAT,2> 

4204 COlTIIUE 

c*. *..... *..***.*..* 

C ILACE DEFAULT SVHIOLS AID OOIDE* •TIIOLt II AlAAf OTI 

C OLACE DEFAULT CODE 11 AIIAV CODE 

c**.. ***•**.. •****.. 

4100 COlTIIUE 

DFTIT • I0SUIZ.1 
TIIIO * OFTPT .1 
TITIO ■ OFTIT *2 
0ESIO1 » DFTIT .4 
SUIIAHUIIIO) ■ 4MTIIFL0 
SUBIAN(TSTIO) s 4MT1TFLD 
DUMO s T5TI0 * 1 
IUOIAR(TSTI0.1> s 4MDUPFLD 
0EVI02 * DFTIT * 1 

code<oftpt> * oftcoo 

STICOFTIT.D » 0FT|VI(1> 
tVI(0FTPT«2> « OFTSVKZ) 

•TKOFTPT.I.II s TIIIYN 
tTKOFTIT.r.Z) « OLAIK 
»TI<0FTIT.2/1> s ttTOVR 
tTH<DFTPT*2.2> * ILAII 
fVKOFTPT.l.D « OUPOVI 
S»l<0FTPT*4,rr - 0E55YI<1,1> 

1VR(DFTPT*4.2> s DES1VM2.1) 
fTlCOFTPT.1,1) s DESVVKI.Zr 
tVI(DFTPT*1.2> » 0E1STR<2.2I 
C00E(DFTPT.4> * OESCOD(I) 

C0DE«DFTPT.5> . 0E5C0D<2P 
tUIIAl(DESIOI) * 4MUI10EI 
tUIIAKDESIOZ) s 4H0THEI 
CLSIAKIOCLSZ.I) » 4HM0LE 
SUIIAI(DFTPT> s 4MM0LE 
C«*.*.*...*...*.M** 

C LEAD CAIDO tVIIOL AID DEFAULT t 

c***. ****.. *.••**..* 

411* COlTIIUE 
C 

c lEAMAIGE THE TlO omOLS FOI EAST VALIOATIOI ^ 

C 

lOFTPT » DFTPT • 1 

IF COESUr .EO. 07 IpFTPT * ioFTPT *2 
PO 4120 I » 1, IOFTPT 
STNCHKCl.n « ILAIK 
• riCHKU.2) « BLAIK 

FLO <0. 4. STRCNKUDI * FLO 10. 4. STKI.IM 

FLO <4. 4, 1TICNK(1^2)7 s FID CO, 4, STin.!)) 

FLO <4/4. tTlCNE(l.n> * FLO CO, 4r STICI,2»> 

FLO <•, 4, tTlCMMl.2>> « FiO C|^ 4, tTiCdElP 


D-18 



mt) 4SZ« COITIIUE 

•ZSZ) C 

•nz) 79I* C CHZCK THE UllOUEltSf Of EACH PhlO Of tVMOLt fOO A CQOE^ 

#ZIZ5 74f. c 

•Z1Z7 tod* JOtm * IDFTliT - 1 

•zm ao^* 00 aiio i < i. joetet 

•ZSSI lOZ* « * I • t 

•ZSI4 tOJ* AAAAT(|> S OLAat 

•ZIJS 104* 00 4540 4 * A, ID7TOT 

0ZI40 105* IFCSYNCHtU.I) .EO. $VRCNK(J»n> CO TO 41*0 

•ZJ4Z too* tF<5VHCNK(|,1> .EO. SVRCNKCJ,Z>) GO TO 41*0 

0Z144 107* 4140 CORTIOUE 

0Z14* tot* GO TO 4510 

0Z147 too* 41*0 A00AV(i> * 4NER00II 

OZISO tio* lOtTR S EOOCOO 

OZ1S1 til* 4100 COOTIIUE 

OZlll aiz* IE <I0SYN: .LT. EOOCOO GO TO 4400 

OZlll till 17 fTQOOAG .IT. 1> MOITE (*,H£A0) 

0Z1*0 tu> EOOOO t EOOOO *1 

OZIOI til* HOITE (*.S«0> 

0Z1*1 tii* HOITE <*.5*1> (l.tUOOAO<|>.iyil<l.1>.tTO<t.Z>.AOOAVC|). 

0Z1*1 1)7* *I*1.IOFTOT> 

0Z1*1 tit* 

OZl*] 110* C CODE LEAD CAODO ^COOE* OEFAULT C. OESIG. C 

0Z1*I IZCii 

0Z171 tzi* 4400 COHTliUE 

0ZI71 tZt* C •**•*••••••#•• 

0Z175 tzi* C aOE the codes VAl 10 

0Z175 tZ4* t •••ttiit.pttit 

0Z17* tZS* 00 4440 1 > 1, OFTOT 

0Z401 tZ** AOOAtM) > OLAOK 

OZ40Z tZ7* IE <CODE(l> .IT. 1> GO TO 4450 

0Z404 tZt* IF <COOE(l> vGT. 255) GO TO 4450 

0Z40* aZf* GO TO 44*0 

02407 tie* 4450 AOOAVCn > *HEOOOO 

02410 Oil* tOCOO s EOOCOO 

0Z411 012* 44*0 COOT 1 HUE 

0Z411 055* IE (OESKET .EO. O)! GO TO 44t0 

02415 tl4* AOOAY(OESOOI) * OLAOK 

0241* t55* AOOAV(OESIOZ) > OLAOK 

02417 05** IF (COOECOESflOl) .LT. 1) A00Ar<0ES001> * 4HEOOOO 

0Z421 057* IE (CODE(DESOOI) .GT. 255) AOOAV(OESKOI) * OHEOOOO 

02421 tSt* If (C00E(0ESO02) .LT. 1) AOOAr(OESROZ) « 4HEOOOO 

02425 tlO* IE (COOEC0ES0O2) .GT. 255) AOOAT(OESKOZ) « 4HEOOOO 

02427 t40* IF (AiOATIOESOOD .EO. 4HEOOOO ) IDCOO * lOCOO *1 

ry24l1 t41* IF (A00AT<DES002) .EG. 4HEOOOO ) IDCOO s IDCOO *1 

02411 042* C •..r*.*#t...** 

02411 t45* C CHECK TO I08UOE THAT EACH CODE IS UltOUE 

02451 t44!* C «••••••••••••• 

02415 t45* 4400 COOTtOUE 

02454 t4** DO 4520 I > 1* 00SU12 

02417 047* t ■ I ♦ 1 

02440 t4t* DO 4520 J « K. OFTPT 

02441 t4t* IF CCODECI) .OE. COOEU)) CO TO 4500 

*2445 t50;* AMAV(J) s 4MEIIOOO 

0244* t51> IDCOO * EOOCOO 

02447 t52;» 4500 COOTIOUE 

02450 051* 4520 COOTIOUE 

02455 054 * IF (DESKEV .EO. 0) GO TO 4554 

02455 055* IF <CODE<DESOOD .EO. COOECDESOOZ)) A00ATIDES002) « 4 HCOROO 

02457 054* IF (AOOAVfDESOOZ) .EO. 4NE0000) IDCOO* IDCOO *1 

024*1 057* DO 4555 I * DEtOOl .OES002 

024*4 054* DO 4510 4 * 1,DFTPT 



^)RIGINAL' PAOP 7q 
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1 

•tin 
•2472 
•2471 
•1474 
•2474 
•»•• 
•2121 
• 211 S 
• 210 « 
•2107 
•211 • 
•2112 
•2121 
•2121 
•2121 
•2121 
•2121 
•2121 
•2111 
• 21 U 
•2141 
•2142 
•2141 
•2144 
•2114 
•2111 
•2111 
•2114 
•2117 
•2141 
•2142 
•2142 
•2142 
•2142 
•2142 
•2142 
•2142 
•2141 
•2144 
•2144 
•2170 
•2171 
02174 
• 20 ft 1 
•2011 
•2012 
•2011 
•2020 
•2021 
•2022 
•2027 
•2010 
•2011 
•2010 
•2017 
•2040 
•2441 
•2411 
•2401 
•2000 
•2000 
•2444 


IF (CQOeU) .«C. CODElin GO to 4114 
AO«AVm » ONCftOOR 
IDCOD > IDCOO *1 
GO TO 4111 

4110 coimm - 

4111 COITIIUE 
4110 com HUE 

IF (IDCOD AT. CHHCOOT GO TO 4140 
IF (TOFFAG AT. 1> HRITE (O.NEAD) 

TOFFAC s 1 
ERROR > ERROR » 1 
•RITE (4>240> 

URITE (0.201) (I, SUtHAN(l). CODE(l), ARRAV(l). I t l.DFTFT) 

IF (DEUEt .EO. 1) 

• URITE <0.201) (l.SUBHAR(l).COOE(I).ARRAf(|) As0CSR01,0ESHO2> 

C •••#•••••••••« 

C CHECK FLAG! FOR FRlHTtlG GRAYRAF FOF EACH TIRE DATA It FIlTEREO. 

C CHECK FLAGS FOR OUTFUTTIHG A FILE FOR EACH TIRE THE OATA It FILTERED, 

C ••tMOttt****, 

4140 COHTIHUE 

IF (lOFIL .6T. 1) GO TO 4000 
IF (FILRAF .EO. OHRAF ) GO TO 414ft 
00 4110 I > I.TIRFIL 
RAF(I) B • 

4110 COHTIHUE 

RAF(TIRFIL) B 1 

4140 IF (FILFIL .EO. 4HFUES ) 00 TO 4O00 

DO 4110 I > I.TIRFIl 
OTFILE(I) « 0 
4lftft COHTIHUE 

OTFUE(TIRFIL) « 1 
GO TO 4000 

C IF HO ERRORS HAVE OCCURRED THE SURRARY FOR LEAD CAROS AHO THE 

C CALCULATIOHt RADE FROR THE LEADS CAROS ARE FRIHTED. 

4000 COHTIHUE 

IF (ERROR .GT. 0) GO TO fOfO 
MRITE (O.HEAD) 

WRITE (O.SOO) OTUHT 

IF (TAFOUT .EO. 1> WRITE (0.302) • UHIVEGSAL FQRRAT 

IF (TAFOUT .EO. 2) URITE (6.303) • LARSYS 1 1 FORRAT 

WRITE (0.110) SKFIIH. SKPSAR. ZORLIH. 20RSAR. L1RLIH. LIRSAR 
CHECK b(FL0AT(LIRLIH)/20RLIH) *$KPL|H 
CK * CHECK *1 

IF (CHECK .LT. IHLIHE) URITE (6. m> CK.IHLIHE 
CHECK t (FL0AT(LlRSAR)/20nSAR) • SKP5AR 
CK « CHECK ♦ 1 

IF (CHECK .LT. IHFTS) UR|T£ (0.320) CK.UFTS 
CHECK B FLOAT (IHLIHE - SKFLIH) • 20RL1B 
CK B CHECK • 1 

IF (CHECK .LT. lIRLIB) URITE (0.317) CK.LIRLIH 
CHECK B FLOAT (IHFTS - SKFSAH) • 20RSAR 
CK * CHECK • 1 ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

IF (CHECK .LT. LIRSARI URiTE (0.322 ) CK. LIRSAR 
WRITE (0.330> (ISLTSTU), I sr l.TIRFIi) 

WRITE (0,331) (NOLTST(l)i I * 1. T1RFIL) 

WRITE <0.332) COOE(OFTFT). $TH(DFTPT,1). SYR(0FTFf.2) 

IF (DESKET .10. 1) WRITE (0.333) pESC0D(1)iDESC00(2). 
B0ESSTR(1.1)«DESlTH<1.2).DESSVR(2.1).bESSrR(2.2l 


C 



J 




•X44« f21« 
•2ftU «Z4t 
•2444’ 4 Mt 
•2444 f24« 
•2444 427 t 
•2444 421 • 
•2444 424* 
•2444 494 • 
•2444 4S1* 
•2444 492* 
•2444 491* 
•2444 |ISi* 
•2444 491* 
•244i 494* 
•2444 497* 
•2444 494* 
•2444 494* 
#2477 440 * 
•274ft 441* 
•27ft1 442* 
•27ft2 449* 
•2749 444* 
•2744 441* 
•2749 44*1 
•2704 447* 
•27«4 444* 
•2744 444* 
•2704 4)0* 
•27«7 491* 
•2710 492* 
•2711 499* 
•2711 494* 
•2712 499* 
•2714 4S4* 
02714 497* 
•271* 49I* 
•2.71* 494* 
•271* 4*0* 
•271* 4*1 • 
•2720 4*21 
•2721 4*3* 
•2724 4*4* 
•2729 4*9* 
•272* 4**« 
•2727 4*7* 
•2710 4*l« 
•2791 4*4* 
•2792 470* 
•2799 471* 
•2799 472* 
•2799 479* 
•2719 474* 
•2719 479* 
•2740 47** 
•2741 477* 
•2742 47I* 
•2749 474* 
•2749 410* 
•2749 411* 
•2749 412* 
•2749 411* 
•2749 4I4H 


THr •ECTAHGUIAO VCOTICCS WHICH OUTLIIE A flELD A4E 9T0IE0 AS rOlLOHSi 
lUE RIO.. LIRE RAW,. SAHOLE Nil., SARPLC RAX.. AID THEl A OOIRTER 
WHICH POUTS TO THE ACTUAL VERTICES. 

THE ACTUAL FIELD OUTLIIE IS STOREO AS FOLLOWS! 

SARFLE. LUE ETC. 

TRAUUC FIELD DATA. TEST FIELDS. OR OESlCIATE FULOS ARE 
ALL STORED THE SANE WAT. 


CALCULATE ADDRESSES FOR TRAUUC FIELDS AID TEST OR OESlCIATE FIELDS. 


FLD9V2 t T 

FIELD! ;« C4 • I0FL02) * 1 

VERtX2 « (4 * I0FL02) « (9 * I0FLD2> • 1 

TOTTRI > (4 • I0FL02) * (9 • I0FL02I • U • T0TVT2) 

FLDSV9 > TOTTRI *1 
FIELDS X <4 • I0FLD9) * TOTTRI * 1 
VERTXS z (4 * lOFLDl) * <9 • lOFLDS) * TOTTRI * 1 

TOTTST * <4 • lOFLDS) ♦ (9 • IOFLOS> • iS • T0TVT3) * TOTTRI 

C*:!****!************ 

C READ TRAUUC fields 
€*•*•*****••*«•*•••• 

*020 CDRTIIUE 

CTRECO * CTRECO * 1 

CALL RREAO (UITFIZ. 1. ARRAY! FL0SV2>i TOTTRI. IRSTATtlS). 
•IRWROS(II>> 

*040 IF (IRSTATU9) .EO. II GO TO *040 
IF <|ISTATUS) .CT. 1) CO TO 4000 

IF (DEIUCF .EO. I) CALL FlZWRf (ARRAT<FLDSV2>. AftlAT(VERTX2l. 
ilOFLDZ. 1. CL8IAR. SUIIAR. CODE. SVR. OFTPT. OUTLIP. SVRRTX) 
••••*. •••••• 

C ZQOR RECTAIGULAR VERTICES FOR THE TRAUUC FIELDS 
C**tM******i******* 

EIDFLD * VCRTX2 - 1 
00 *010 J1:; FIEL02. EIDFLO. 9 
J2 » J1 • 1 
J9 « J1 • 2 
J4 « J1 • 1 

ARRAVU1I > FLOAT UARRATUI) / ILUIC) * SKPLUI • ZORLII 
ARRATOZ) > float ((ARRAY! J2> / ILlllO > SKPLIII • ZORLU 
ARRAY(J9) 3 FLOAT ((ARRAY! J9) / ISARIC) > SRPSAR) • ZORSAR 
ARRAY! J4> r fLOAT <!ARRAY!J4> / ISARICI • SRPSAR) * ZORSAR 
*0*0 COST HUE 

c********* •*•**•«*•« 

C 20CR ACTUAL TRAUUC fields 

DO 7000 I « VERTX2. TOTTRI. Z 
J « I ♦ 1 

ARRATdl s FLOAT iCARRAT!l> / ISARICI - SRPSARI • ZORSAR 
ARRAYCil z FLOAT ((ARRAT!J> V ILUIC) > SRPLlll * ZORLII 
7000 COITIIUE 

CALL FIZHRF ( ARRAT(FL09V2> . ARRAY<VERTx2) . I0FL02. 9. CLSIAR, 
•SUIRAR. CODE. STR. OFTPT. OUTLIP. SYRRTX) 

C«*t**rt*. ■**#*«•••« 

C READ test FIELDS OR OESlCIATE FIELDS 

Ctttt*************** 
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i 



fOl* 

70*0 

COOT HUE 

r747 

m* 


10 mitET .10. 0 .AID. 0CSKE7 .CO. 0) CO TO 7200 

t711 

017 • 


TlTOflD « TOTTST - TOTTOO 

ttM 

ou* 


CTOCCO = CTOCCO * 1 

17M 

ooo« 


CALL flOEAO lUOTMZ. 1. ARRAY moiVSI, TSTmOD. IOSTATUII. 

t75J 

MO* 


*l«tf«01U3>> 

E794 

Ml* 

7000 

IE URSfATUS) .CO. 1) GO TO 7000 

S754 

M2* 


IF UOITATUI) .CT.^ 1) GO TO OOOO 

E7«0 

Ml- 


IF fOEiUGF .CO. 1 .AID. TSTKEV .CO. 11 

E7*0 

M4* 


*tAU FI2VRF <ARRAV(FLDSV3}.ARRAT(VEITX3>.IOFtDS«2. 

E7M 

•M* 


• CUOAII.SUOIAR.CODC.lVIl.DFTFT.OUUIR.lYNRtXI 

E749 

M*t 

c* **• 


E7«« 

007* 

c 

29011 RCCTAIGUIAR VCRTICCO FOR TEOT FlUDt OR OEfI GRATE FIELOl 

E74« 

MO* 

c**** 


E7«Z 

0,M* 


CIOFLO « VCRTX3 >1 

E741 

1000* 


00 7100 ji * fields. EODFLD. 1 

E744 

lO'Ol* 


J2 « J1 • 1 

E747 

1002* 


J3 * JI • 2 

E774 

1003* 


J4 » JI * 3 

E771 

1004* 


ARRATCJU * FLOAT (<ARRAT(J1> / ILIRIC) • tRRLIII « 20RLII 

E772 

loot* 


A5;RAYCJ2> * float MARRAVCJ2> / ILIIIO • URLII) * 20HLII 

E77I 

100** 


ARRATfJ3> s FLOAT UARRAY(J31 / llARIO • SKMARI * 20RSAR 

E774 

1007* 


ARRAV(J4I • FLOAT <<ARRAVU4> / lOARIO - URfARI * ZORtAN 

E775 

1001* 

7100 

COOTIRUE 

E775 

1000* 

c*** • 


771 

1010* 

c 

200R ACTUAL TEST FIELDS 

►771 

1011* 

c* • *• 


E777 

1012* 


DO 7120 1 « VE0TX3. TOTTST. 2 

lOftZ; 

1011* 


J ■ 1 • 1 

100 s. 

1014* 


ARRAT(|> « float <<ARRAV<1> / 1SARIO - SRPSAHI * ZORSAR 

00 i; 

liii* 


ARRAVfJk « float KARRAYUI /ILIO.IC) - SKRLIO) * ZOHLII 

loot 

ibi*> 

7120 

COOTIRUE 

1007 

1017* 


IF (OESREV .CO. 1) CALL URTFLO 1 ARRAVCFLDSVS). ARRAViVERTXSI. 

1007 

1011* 


• ■OFLDS.S.CLSRAfi«SUORAR) 

toil 

1010* 


IF CTSTXET .CO. 1> CALL FIZRRF ( ARRAT< FLOSVS ) , ARRAVt VE0TX3 I . 

ton 

1020* 


•R0FIOS.4.CLSIAR.SU0RAR. CODE. SYR. OFTRT.OuTLIR.SYHRTX) 

toti 
101 1 

1021* 

1022* 

c 


1011 

1023* 

c 

CALCULATE NOU HART TIRES A PIXEL HILL OE HRITTER OR TAFE. 

1 VI 1 
1011 

1 • 

1021* 

c 


101S 

102** 

7200 

COOTIRUE 

1014 

1027* 


ASAR * SKRSAR * 1 

toil 

1020* 


SAROFT * 0 

10 u 

1020* 


J • 0 • 

1017 

1030* 


RAXSAR > 0 

1020 

1031* 


DO 7210 1 « ASAR. IRRTS 

I02S 

1032* 


J » J> 1 

1024 

1013* 


CALL FIZSOH U.RAXSAR. ZORSAR. SARSOH<J)^llHSAR.S72eV> 

102 1 

1034* 

7205 

RAXSARs RAXSAR* SARSQXCJ) ^ 

102* 

1031* 


IF CRAXSAR .EO. LIRSAR) GO TO 7215 

lOSO 

103** 

7210 

COOTIRUE 

tOS2 

1017* 


1 » IRRTS 

ton 

1030* 


J « IRPTS » 1 

10S4 

1030* 


SARDFT s LIRSAR > RAXSAR 

tost 

1040* 


SARSOHCJ) • SARDFT 

lOS* 

1041* 


RAXSAR X SARS0U(J> • RAXSAR 

lfS7 

1042* 

7211 

FROSAR * J 

1040 

1043* 


ESAR « I 

1041 

1044* 


ASAR1 s ASAR 

1042 

1041* 


IF CASAR .EO. 11 ASAR1 «2 

1044 

104** 


ASARF » ASAR 

1041 

1047* 


IF <ASAR .OT. 11 ASARF ■ ASAR-1 




IF (ESAR .EO. 
iSARF t ESAR • 

IRPTS) 

) 

ESAR1 » 

IRPTS - 1 

IF (iSAR .EO. 

IRPTI) 

ESARF K 

IRPTS • 

IF (DERUCF .EO 

. 0) 

CO TO 7220 





NRITE (0,910) 

ARRARE 



WRITE (0.949) 

(I, SARSOW(I). 1 

X 1.PR0SAR) 


CAICUIATC VARiAILCI FOR URITIRG OR THE DRUR 


?IZ% CORTIRUE 

DRNST » TOTTIT ♦ 1 
ROCOL « IttlAI / RAGSVR 

IF (ROD<tlRSAIf.FACtyR> .RE. 0) ROCOL « ROCOL * 
ROCOHR * FAQSYR/4 

IF (RQD<.PAGSrR«*> «RE. 0) ROCOUR « ROCOMR * 1 

NOLRAF! s PARARR •> TOTTST 

NOLLIR XHOLRAP / <R0C0hR • ROCOL •Hi 

IF (NOLLIR .LT. 1> CO TO f049 

NOLMRO s NOLLIR « ROCOMR t { 

call RIRIT (IIADDR. RMDS) 

COLIRCiU « IIAOOR 
COLAOQd) s IRADOR 
AlAOO • ROCOURi* LIRLIR • I 
ORRMRT » O: 

|F (ROCOL .EQ. 1) GO TO 72)0 
00 7230 I K 2. ROCOL 

COLADOd) > COLADD(l*n f ALADD 
COLIRC(l> * COLADDU) 

7230 CORTIRUE 

rno ORREO « ORRST « (NOLNRO • ROCOL) 

00 72A0 I * DRRrTr ORREO 
ARRAT(L) « PLARK 
72RR CORTIRUE 

ITRPAC s PACSYfi 

REaLIR s NOLRAF/(ROCOURt4) 

TIRREA s LIRLIR / REALIR 

IF 'rtur(LI;HLlR, REALIR) .RE. 0) TlRREA « TIRREA 
LRPtAR s ROO(LIRSAR.A) ♦ LlRtAR 
FORM) > «N(1X.t) 

F0R(2) * 4N.2X.T0 
FOR(S) > tH. 

CRCOOE (R.390.FTT) ROCOMR 
F0R(4> » FTT 
FORO) « «HAi./.1 
FOR(R> s *NN«,Tf. 

F0R(7) s F0R<4) 

FORCt) « 3NAA) 


COURTER FOR THE LOOP TO FILTER THE IRPuT FIELD 
FROR IRFI2 ARO THE FAITRAR OR TAPE URiTt. 


7210 CORTIRUE 
lUFPT « 1 








I 

•lUS 

•iu»; 

•st«t 

•su« 

•1U4 

•sut 

•sw« 

• lUI 

•im 

•SU1 

•IU1 

•sin 

• S171 

• SO 71 

• SI 71 
•S17S 

• S174 
•S17S 

• S17* 

• S177 
•StOO 
•SI01 
•stoz 

• IlOS 

• S2i« 

• S2U 

• S212 

• S214 

• S21S 

• S2U 

• S217 

• S22I 

• S221 
•S222 
•S22S 
•S22S 

• S2S9 
•S2S2 

• S2S4 
•S2S« 
•S2S7 
•S241 
•S244 

• S24* 
•S2S0 

• S2S1 

• S292 
•I2SS 

• S2S4 

• S2SS 
•325* 

• 3257 

• 3257 

• 3257 
•S2*0 
•32*2 
•S2*S 

• 32*4 
•32*5 
•32*7 
•S272 
•S27S 


CTMU X CTflU . t 

If (HOlTSTCCTFiLO .«E. • .AID. I SlTf T< CTf UE > •> 

•ATfUE s ATFILE » « 

IF <OTf ILE(CTf|LE> .IE. •> •FILE > IFILE « 1 
IF <OTmE(CTEUE> .EQ. 1) 

• CAtL FI2TMD HIISAII, TAIOUT, OTUlT. ODIflVV, SEOKEV) 

IF ICTFllE .EO. TIIFIU CO TO 7300 
OUTFAS * UITFAI 

IF (NODUTFILE.E) .EO. •> OUTFAt - UITFA2 


UIF TME lUNlER OF SKIF LIIE| • 3 MiEt 

f 


27* 73*0 COITIIUE 

2 I* SKIS * iKnii • s 

2I* II » 2 

••« 12 m.J 

31* is • 4 

32* J « 1 

S3* llMlDSdS) * IMT5 

34* lOlTATUS) ^ * 

35* DO 7340 LIIE * 1, UA3 

so* 7320 IF UltTATcm .EO. 1> CO TO 7320 

37* IF (IMTAT<1S> .CT. 1» CO TO fOOO 

30* IF URUlDiCtS) .IE. tIFTO CO TO tOjlO 

3f* CALL MEAD (UITFI2. I. IRM.J). lOFTt, IMTaTU). imiDS(i)> 

40* CTIECD ■ CTRECD • 1 

41* tv « 11 

42* 11 • 12 

43* 12 « 13 

44* IS • J 

45* J ■ tv 

4** 7340 COITIIUE 

47* 00 73*0 tARFLE A AtAIF .EtARF 

40* IF ( IKtARFLE.m .IT. 1> tKSAMLE.m * OFTFT 

40* IF (IR(|AMIE.I2> .IT. n IKSARFLE.IE) « OFTFT 

50* 73*0 COITIIUE 

51* lETFlL » 0 

52* IF (tKF3 .EO. 3) CO TO 73*0 

S3* 00 73*5 lARPLE s AtANF.EtARF 

54* IF flKtAIFLC.J) .LT. 1) ll(SAHFLE,J> * OFTFT 

55* 73*5 COlTIlilE 

5** kevfilJ <1 

57* 73*0 CALL FiOFLT ( M .KCVF t L . J, I2> 

50* OTLIIE * 0 

5f* IIICCT * 1 

00* CALL FlZSOIf (IIIECT> OTLIIE. 20ILII, IKII. LIU II, 173701 

*1* 60 TO 1075 

*2* 7370 COITIIUE 

A3* CALL F12UIT (I 1 . ISRHI, tOOTO . ARRAT(FLD5V2> . AllAVIF IEL02 > . 

04* •AIRAVCVEATRO). ARIAT(FL0SV3). ARIAVtFlELDS). AIIAT<VEITIS>. 

*5* •AllAy<0IRtT).4> 

*** IF ICTFllE .CE.TIIflU CO TO 7420 

*7* IEmIID OUTFAS 

*0* 4tTAT<1) « 0 

*f* 4tTATf2> « 0 

7«* 7300 IF IJITATIOUFFT) .EO. 1 > 60 TO 7300 

71* IF CJSTATdUFFTn 74e0.7400.7300 

72* 7400 CALI IHRITE (OUTFAt. I.HOLARII V.OUFFTI.FROSAN, JSTATCOUFFT} > 

73* 7420 OUFFT » 3 - •uFFT ^ ^ ^ ^ 
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i 


1. 

1174i 

C 


IS2?) 




•1271 

1174* 

c 

•AIK •OQCCSSlfeG OO-iOOK 

•127S 




•S27I 

117i« 

c 


•S27« 

1170* 

tCVFIL * 1 

•I27S 

1U0> 

ILIIE 5 ItOl ♦ 1 

•]274 

1U1» 

LIPIMKT « 0 

•1277 

11|2« 

fLtOE > tome #2 

•!!•• 

nil* 

fiO 

7400 LUf « UIKE. CUKE 

•sm 

1114* 


IF UIKHIT • EOFHlT) 7440. 7440. tOOO 

tss«4 

11»1* 

7440 

IF (IKSTAtCin .10. U GO TC 7440 

•S110 

11I4* 


IF UKITAUm .EO. 0> GO TO 74|0 

•5112 

1107t 


IF UKSTATdl) Mn 11 60 TO 0000 

•1114 

11U* 


EOFHIT s 1 

•ISIS 

11iO« 


EETFIL * 0 

•IIU 

IlfOt 


GO TO 7441 

•5117 

im« 

7400 

IF (IKMKDSUl) .KE. IKFTSr GO TO 0040 

•5521 

1102« 


CAU KKEAD (UKTFIZ. 1. IR<1«J>. IIFTS. IKITATU). IRKKDS(J>> 

•1522 

1101* 


CTRECD > CTKECO ♦ 1 

•5522 

1104« 

C 


•5522 

11fl« 

c 

DETEKRtREl THE KUKOER OF TIRES TNE LIKE Hltl tE KRITTEK 01 INE OUroUT 

•1522 

1104« 

e 


•5521 

1107* 

74»1 

COKTIKUE 

•1524 

110I* 


IIKECT 1 LIIECT • i 

•1121 

llOfr 


CALL FIZIOK CLIIECT. OTLIKE. 20RLt8« ISRHK. LIRLIH^ S7400) 

• 1524 

1200* 


LIRMIT * 1 

•5527 

1201t 

7400 ‘ 

IF (KETFIL .LT. 11 GO TO 7100 

•1551 

1202* 


00 7401 tANRLE « AlARF.ElARF 

•5114 

1201* 


IF ( tK(SARRLC. I51 .LT. n IK</iARPLE , I S > « DFTRT 

•US* 

1204* 

7401 

COKTIKUE 

•51U 

1201* 

C 


•1114 

1204* 

t 

FILTEKI TNE tCAK LIKE IT UlIKG TNE HOLE AID IlLAKO VALUES. 

•5514 

1207# 

c 


•1540 

1201# 

7100 

CALL FI2FLT U2, KETFIL, 11.11) 

•5141 

UOf# 

c 


•1549 

1210# 

c 

STOKES FUTEKEO IKFUT DATA OK FASTKAK OK TAKE FILE 

•1549 

1211# 

c 


• 1141 

1212# 


IF iCTFUE .CE. TIRFIL1 CO TO 7115 

•1145 

1211# 

7111 

IF <JSTAT(1UFKT> .EO. 1) CO TO 7111 

01541 

1214# 


If <JSTAT<IUFRT)> 7112. 7112. toil 

OHIO 

1211# 

7112 

CALL KMRITE <OUTFAS.1.HOLAKK(1 .lUFKT) .KKQSAK. JSTAT (lUFKT)) 

• 1111 

1214# 

7111 

IF (ISKUK .LT. 11 GO TO 7120 

•1111 

1217# 

C 


•1111 

17.1I# 

c 

ZOOKS THE SCAK LIKE. COUKTES THE KUKIER OF KtXELS IK EACH CLASS 

•1111 

1210# 

c 

MKITES THE LIKE OK THE OUTPUT TAPE ISKUK TIKES AKO 

•1111 

1220* 

c 

HKITES THE DATA FOK THE QKATKAP OK THE DiUK. 

• 1111 

1221* 

c 


• 1111 

1222# 



• 1111 

1221# 

t 

AKKAT(VEKTX21. AKKAY(FLOSVl). ARKAV ( F lELDll . AKKATC VEKTXl ) . 

01111 

1224# 


AKKAT(DKHST), 111 

• 1514 

1221# 

7120 

SV #11 

•1111 

1224# 


lOFPT t 1- tOFPT 

•1154 

122?# 


11 i 12 

•1117 

1221# 


12 ■ n ; 

•1140 

122f« 


11 * j 

•1541 

1210# 


/ X SV 

•1142 

1|?1« 

7400 tOlTlOUE 

•1144 

1212# 

• 000 coimuE 

•5141 

1211* 

!F 

aiKNIT .GT. i) GO TO 1040 

•1147 

Iil4* 

lUiO ^ llfILtI ^ OUlU 

•1174 

1211# 

tllFU * -1 

•1171 

1214# 

IIUHIT *1 
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mi 

I237« 


CALI M2M.T (12. ftEVOIL. OURHV.OUOim 

mn 

1231* 


CAU FtZHOt (U.tSKMA.tOOOO. AAOAV(fLOSV2>. A4IIAV(riElD2) . 

HIM 

1210« 


*AftRAf(VERTXZ>. ARRAVIFLOSVS). AARAVC MELOS) . AORAVI VE«TX3) . 

• 1S7S 

1240t 


*A«RAV(00HST).I1) j 

fSS7S 

1242* 

c 

OUTRUT SUPINARV FO« FU20N 

•3174 

1244* 

1040 

COOT HUE 

• 3373 

1243* 


TNOLCH s TNOLCH • N0LECM( CTMLE) 

• 1374 

1240* 


TI4LCH s TISLCH * ISLOCM(CTMLE) 

• 3377 

1247* 


TOTRCT s LIHSAN • LlRLU 

• 14^^ 

1241* 


ZTOTRC a FLOAT(TOTRCT) ■ ,01 

•3401 

1240* 


MAITE <4. MEAD) 

•S4^S 

1230* 


•RITE (0,400) 

•3433 

1231* 


IF (OTFILE(CTFILE) .EO. 0) 60 TO 0030 

•3407 

1232* 


•rite (0,403) •fue.otuiT 

• 3413 

1253* 


IF (TAROUT ,E0. 1) WRITE (0.302) 

• 34U 

1234* 


IF (TAFOUT ,E0. 2) WRITE (0,303) 

•3411 

1233* 

I430 

COOTtOUE 

•3412 

1230* 


WRITE (0,410) URTFI2. CTRECD 

•342* . 

1217* 


WRITE (4,413)H0LTST(CTFUE).ATFKE.N0LECM(CTFUE).TH0LCM 

•3434 

1230* 


WRITE (0.414}tUTIT(CTFUE),ATFILE.ISLDCH(CTFILE),TltLCH 

• 3442 

1230* 


WRITE (0.420) TOTRCT 

•3443 

1200* 


WRITE (0.440) 

•3447 

1201* 


DO 4000 1 a 1.DFTRT 

• 3432 

1202* 


2RC(I.CTFUE) a F10AT(PERC|IT(1.CTF|LE>) ^TOTRC 

• 3433 

1203* 


WRITE (0.400) fUIIAfl(l), RERCRTU.CTFILE). 2RC( I . CTFllE) 

• 34*^ 

1244* 

•040 

COOTIOUE 

•34*2 

1203* 


2RC(OES001eCTFlLE> a FLOAT(RERCOT(DES001 .CTFUE) ) /2T0TRC 

• 3403 

1200* 


2RC(0ESI02,CTFILE) a FL0AT(RERC0T(DESOO2. CTFILE) )/2T0TRC 

•34*4 

1207* 


WRITE (0.400) <3UIRAR(1).RERCIT(|. CTFUE), 2RC(I, CTFILE). 

•3404 

1200* 

•1 > OE$I01.DES002> 

03474 

1200* 


IF (lEDKET .RE. 1) 60 TO 4073 

• 3470 

1270* 


2T0CR1 a 0.0 

•3477 

1271* 


00 4070 1 a 1.00SU02 

•3302 

1272* 


IF (SUIRAR(l) .EO. 4MWATER ) 60 TO 4070 

•3304 

1271* 


2M0L a FL0AT<RERCIT<I. CTFUE)) 

01303 

1274* 


2T0CHI a 2HQL ♦ ZTOCHI 

• 3300 

1273* 


ZCfM(CTFUE) a 2CNKCTFUE) • (2M0L • 24E0(t)) 

• 3307 

1270* 

• 070 

COOT HUE 

• 3311 

1277* 


ZCRKCTFUE) a ZCRl(CTFUE) / ZTOCNI 

•3312 

1270* 


WRITE (4.320)ATFUE.ZCR1(CTFUE) 

•3310 

1270* 

•073 

COHTHUE 

• 3317 

1200* 


IF (RAR(CTFUE) .EQ. 0) CO tO 4120 

•3321 

1201 « 


CALL FI2RAR (ARRaT( 0RR4T). tOOfO) 

• 3322 

1212* 


IF (CTFUE .6E. TIRFIL) 60 TO 4300 

• 3324 

1213* 


ORRWRT a 0 

• 3323 

1204* 


00 4000 1 a 0RN4T.DRRE0 

• 3330 

1203* 


ARRAV(I) a HARK 

•3331 

1204* 

•000 

CORTHUE 

•3333 

12I7* 


00 4100 1 a 1.ROCOL 

•3330 

12U* 


COLHC(I) a COLADO(I) 

•3337 

1240* 

• 100 

CORTHUE 

•3341 

1200* 

• 120 

CORTHUE 

•3342 

1201* 


IF (JitAT(l) .RE. 0) 60 TO 4040 

•3344 

1202* 


IF (J$TAT(2) .RE. 0) 60 TO 4040 

•3340 

1203* 


SRO file OUTFAS 

•3347 

1204a 


IRRTS a RROSAN 

• 3330 

1203* 


CTRECD a 0 

•1331 

1200* 


FILE a 1 

• 1332 

1207* 


IRLHE a HLIRE > ttRlIR 

•3333 

1201* 


URLIR a 0 

•1334 

1200* 


•KRIAR a • 
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I 

•ssu 

•35«1 

•ms 

•SS*« 

• SS4S 
•SS44 
•SS47 
•SS7« 

•ssn 

•ssn 

•SSM 

•SSM 

•SS7S 

• SSM 

• SS74 
•SS77 
•S4«« 
•S4«4 
•S414 
•S41S 
•S414 

• S424 
•S4S2 
•I4SS 
•5434 
•3433 
•3444 
•3443 
•3444 
•3432 
•3433 
•3434 
•3442 
•3445 

• 3444 

• 3443 

• 3444 
•3474 
•3477 
•S744 
•3741 
•3743 

• 5713 

• 3714 
•3713 
•3721 
•3722 
•3723 
•3723 
•3724 
•3727 
•3732 
•3733 
•3734 
•3733 
•3744 
•3742 
•3743 


300* 

30U 

soz< 

303* 

304* 

303* 

304« 

307« 

30i> 

30fi 

310« 

311 * 

312* 

313« 
314* 
315* 
314* 
317* 
311* 
31f* 
320* 
321* 
322* 
323* 
324* 
323 • 
324* 
327. 
321* 
324* 
330. 
331* 
332. 
333* 
314. 
313. 
334* 
337. 
331* 
334* 
340* 
341* 
342* 
343* 
344* 
343* 
344* 
347* 
341* 
344. 
330. 
351. 
332. 
353. 
334 « 
333* 
534* 
337* 
331* 
334* 
S40* 
341* 


t07NIT s • 
imHIT <0 
MAH7 * 1 
2SAHF * 1 
ASAII I 1 
AS AN 1 I 2 
ESAN 3 PROSAH 
E3AN1 * PNOSAN >1 
UITF12 i OUTFAS 
•EWIHO U4TFIZ 
60 TO 72 to 
•304 COUTINUE 

CALL CLOCK (fLATINI 
HNITE <4.300> ELATtn 
•TON 

C. I 

C FATAL EMON UNITE STATENEATS AND ENNON EXIT 



•••• continue 

•AONEC 3 LINECT -2 

IF (JSTATdUFNTI .ED. 2> UNITE (4.400) lAONEC, CTFILE. OUTFAS 
IF (JSTAT(IUFPT) .EO. 5> UNITE (4.440) OUTFAS. lADNEC. CTFILE 
60 TO 4040 
4004 CONTINUE 

IF UNSTATdS) .EO. 2) UNITE (4.440) CTNECD. FILE. UNTFI2 
IF (INSTATUS) .EQ. S> UNITE (4.403) UITFIZ, FILE. CTNECO 
60 TO 4040 
••10 CONTINUE 

•UNUNS * INUNDSdl) 

UNITE (4.420) UHTFIZ. (ANFI2KI). I • 1.NUNUNS) 

60 TO 4040 
4030 CONTINUE 

UNITE (4.430) SKF1LE.INSTaT(|3) 

60 TO 4040 
4040 CONTINUE 

UNITE (4.440) CTNECO. FILE. INUNDSdS). lINTt 
60 TO 4040 
4043 CONTINUE 
60 TO 4040 
4030 CONTINUE 

UNITE (4.333) 

UNITE (4.343) UNNAV(t). CLSNAN(I). I * 1. NOCiSZ) 

60 TO 4040 
4040 CONTINUE 

UNITE (4.340) 

UNITE (4.342) (U CLMAN(I). ANNAVd). I s I.IOCtSZ) 

60 TO 4040 
4470 CONTINUE 

UNITE (4.430) F|ZF|L. FIlE 
60 TO 4040 
4073 CONTINUE 

UNITE (4.413) 

60 TO 4040 
40i« CONTINUE 

UNITE (4.423) FlOKET 
60 TO 4040 
4040 CONTINUE 

CALL CLOCK (ELAT IN) 

UNITE (4.300) ElATIN 
UNITE (4,410) 

CAU CNENN 
COO 
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•L ^0P.« COMKA.CONIK* 

POP ill 2405 9010 

TNIt P90C €L£NEIT 9R0CEISE0 01 09 AM 24 AT 1 
•99441 MQC ORISII t EITRT MtIT I 

•4M4S 

•••044 

tM445 

•••944 

999992 MOC 0RI6I9 2 E9TRV Mill 2 

999991 

999999 

999919 

999911 

999912 

99991S 

999914 

99991) 

999914 

999912 

999919 

999919 

999929 

990921 

999922 

999923 

999924 

99992) 

999924 

999922 

999929 

999929 


1x2St49 

C0N9K4* 2 COAT 

COM09/C109AL/MEAOC42).IIAPTA».OATAPE.SAVTA9,9H2UE,IPIKCT. 

• mt2ll,NI|KEV.TRFOII9.Elll9T9.E99KET.I1APU9T.90MlE. 

• 99UM0.09RV0S«9A6fl2,DAT21i«STArU 

• t •9t2U9T«2l2K€T.2l2F!L 
E99 

C099T4* 2C9PT 


c* 


9109AI COMOH It USED 19 EVERY PROCEtlOR. IT It AlHAYS 19 CORE. 

All PARARETER9 ARE I9ITIAU2E0 19 THE NORlTOR ROUTlRE OR 9LKC0R 

IKCEPT At ROTEO lELOM 

9C219ITI099 

MEAD - tTA9DAR9 MEAOIRG PRI9TED 09 ROtT OUTPUT PACEt. 

RAPTA9 ' 20RTRA9 U9IT 9UR9ER 09 MHlCH THE NAPTAP FILE It 
HR1TTE9 (*2) 

OATAPE • URIT 90. FOR THE IMAGE DATA TAPE <•)> 

9AVTAP • U9|T 90. 09 UHtCN THE tTATISTICt FUE IS 9R1TTE9 (>V) 
•RFtli • U9iT 90. 09 MHICN THE 9'RATRIX FILE IS URITTER <M9> 
IRKCV • TRIGGER 1901 CAT I9G THAT THE t-RATRIX FILE NAS 0EE9 
HRITTEI. CA9 9E SET 19 SELECT CLASSIFY OR pATA^TR. 
NltFIl - URIT 90. 09 HHICM THE NlSTOGRAR FILE IS URITTM <«11> 
NitXET - TRIGGER I90ICATI9G THE HISTOGRAM FILE HAS IEE9 
URITTER. SET 19 HIST PROCESSOR. 

TRFORR - U9IT 90. 09 UNICH THE TRARSFORMEO IMAGE IS URITTER tY 
THE OATA>TRA9SFORHAT109 PROCESSOR. (xU> 

ERIPTP - URIT 90. 09 HHICH THE ISOCLt PROCESSOR MRITES 
CLUSTER tTATISTICt FOR THE ERIPS SYSTEM. <«1)> 

ERPf.CT - TRIGGER 1 90 1 CAT 1 96 THAT THE ERIPS I9TERFACE TAPE 
HAS IEE9 URITTER. 





11l2Il49 


FI120R 
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NA^UIT - UIIT 10. 01 KHICN TmC MOCtt Oft OltftlAV ftftOCCttOft 


MftlTft m CiUSTEftCO Oft CLASSIflEO DATA 
TO If OimAVEO Oft TNE flits OAS 
ftOFILI “ ftO. OP PILES HfttTTEft Oft UftIT U <MAf OUTPUT TAfE> 

IT DlSfLAT AftO/Oft ISOCLS 

SET IITMEft Ift ISOCLS Oft OtSfLAV. 

DftUNAO - lEOIftftlftC AOOftESS POR THE ftAftOON ACCESS NiGH SPEED 
DftUR PILE, this pile IS USED AS A SCRATCH PUE Ift 
SEVERAL PROCESSORS. REFEREftCES TO SVSTER ROUTIftES 
‘RREAD’ AftO ’RHRITE^ ACCESS THIS FILE. 

DRRUDS - 10. OF MORDS AVAILABLE Oft THE RAftOOR ACCESS FILE. 
PASBIl • 10. OP LIRES available FOR PRIBTIftS Oft A PACE. 
BATPIl - ftO. OF E-O'F'S TO BE READ OVER BY TAPERO ROUTIHE Ift 
ORDER TO POSlTIOft TNE DATA TAPE TO DESIRED PILE 
STAPtL - SO. OF E-0>F*S TO SKIP OVER TO POSITIOR STAT FILE) 


PIZUftT - LOGICAL UftIT Oft MNICH THE PILES FOR PR06RAR P1L20R P1L20R 
ARE UftlTTEft PU20R 

PIZKET - TRIGGER TO HRITE A PILE FOR IftPUT TO P1L20R. PIL20R 

D > DO ROT URITE A PILE PIL20R 

T ■ URITE A PILE PU20R 

PI2PIL - total RUBBER OF PILES THAT ARE MRITTER Oft PI2URT. PIL20R 


ERO 

IRBR4 PROCEDURE 14 iAft U l«i24iB2 D BU47T40 14 S2 lOELETEDI 

t iUSt27# 12 1 



•I W,» CNIttft.CRIKIft 
W ttt 2401 0010 

TNIS OROC ELEt^CRT OROCEtSCO 01 Ot ARR 70 AT 11i24iU 


llttOtll 


•MI01 RROC 0RI6II 1 

•MI02 

•Mtf] 

•••Ml 

•••••0 

•••0«7 

••••Ot 

••M«0 

••••It 

••••n 

••••It 

••••IS 

••••U 

••••11 RROC ORIGIR t 

••••10 

••••17 

••••It 

••••If 

•••020 

••••21 

••••22 

••••21 

••••24 

••••21 

••••20 

••••27 

••••2t 

••••2f 


ERTRV ROIRT 1 CRRRIf* RCORV 


CORROR/OI«RllCATRLO.CATIAN<OU.CLSRAR<01).SUBRAN(01).luaROIOO). 

• •URCATCOO),CLSSUB(0«).RORAR.TOTVTS.IOSUIS. 

• RCFOkT.TtTKCT.TRlKEV.TMR$KT,iTATKT,ERRTRl.TMRSVA, 

• nTRfV,RRH6.0RCORa.RRf|AT.CDATC(2). 

• •ittV2*O|ELD2.VERTX2.H9tVl.0tElDS.VERTXS.RCTIOS. 

• TNREt<OO>.tVRRTX<OO).NICNfO0>.COR(O«) 

• .RiORET.ROnOt.lOfLDS.ROfETZ.FETVCtCSOI 

• •R0«UB2. ROTRrO. T0TWT2. R0CLS2 

• •tATRO<00>,ROCAT,FUTER.RARRRT 

• .DEtRST.BElURI.DElOTN.CROR .ACROR.AOTMER.ATOT At 

• ,tlTE(0».AHAlTl(S>.CARtMOI.CRRXEV 

• .RRIlf 
ERO 

EHTRT ROIRT 2 C0RT1«« RCORT 

c* 

C« CORROR tLOCK OllRl. II MIEP ORLT |R THE OtlRlAV RROCEIIOR 

e* 

c* 

f •IRIRiTIORI 


f CATfCO - RLAO IRDICATII6 RHETHER OR ROT CATEGORT RERfQRHARCE 

C« ' RERORTf RutT IE CERERATEO. 

C* CATRAR - RARER 07 CATEGORIEI. READ 7R0R RARTAR. 

C* CilRAR - RARER 07 CLASSES. READ 7R0R RARTaR. 

C* lUlRAR • RARER 07 SURCLASSER. REAP 7RQR RARTAR. 

f RURCAT * RURCLASR*CATEGORV CORRERRORPERCE VECTOR 

C* CRURCATfOsM RfARR RURClARR I REiORGR TO CATEGORT R> 

C« ClIRUR - RURCLARR-CIARR CORRERRORPERCE VECTOR. 


RILZOR 


u 


fCLStUtCI»=ll DEAlt SUICLASS 1 lElOiGS TO CLASS ll> 


••MSI 

••••It 

••••SI 

••••14 

••••SS 

••••SO 

••••St 

••••S« 

••••!• 

••••40 

••••41 

••••4t 

••••4S 

••••44 

••••4S 

••••44 

••••47 

••••41 

••••4# 

•••••• 

••••11 

••••St 

••••SS 

••••S4 

••••SS 

••••s* 

•••0S7 

••••SI 

••••Sf 

•••••• 

•••••i 


■ORAP - TtlMCP IIDICATIIG ttHCTMCft OR HOT A RAP IS TO BE PHtITED 
TOTVtS - TOTAL 10. OF VERTICES IR IRPUT TEST FIELDS. 

OOSUOS * 00. OF SUBCLASSES USED 11 CLASSIFY PLUS ORE. FOR THE 
TMRESHOLO CLASS. 

•CFOKV > KEY IROICATIRG HHETMER OR ROT GROURD TRUTH PERFORRARCE 
••PORTS ARE TO IE PRIRTED OR A PER FIELD BASIS. 

TSfKEV - REV IROICATIRG RHETHER OR ROT TEST FIELDS MERE IRPUT. 
T«BREV - REV IROICATIRG KHEThER OR ROT TRAIRUG FIELDS ARE TO 
•E OUTLIREO. 

TNRSRT - TNRESNOLO REV 

si APPLY CNl<SOUARE THRESHOLDS 

s2 arKv empirical thresholds 

SS APPLY USER'IRPUT THRESHOLDS 
■• RO TNRESHOLOIRC 

fVATRV - REV FOR PRIRTIRG STATS FROM HAPTAP 
ERPYRt * EMPIRICAL TMRESHOLDIRC FLAG 
TNRSVA - USEM'IRPUT THRESHOLD VALUE FLAG 

Ptmv - FLAG FOR PRIRTIRG CUMMULATIVE HISTOGRAMS OF QUADRATIC 
FORM. 

•NFLO -FLAG IROICATIRG RHETHER OR ROT A ••MATRIH MAS 
APPLIED IR classify. 

•IICOMR - RO. OF LIREAR COMIIRATIORS IS l<HATRU 
•RFEAT - RO. OF CHARIELS USED II CpHPUTIIG •-MATRIX 
CDATE - DATE OF CLASSIFICATIOI 

FLOSYZ - ADDRESS IR ARRAY' FOR TRAUIR6 FIELD IRFORMATIOR. 

FOR EACH TRAIRIRG FUD 4 PIECES OF IRFORMATIOR ARE 
STORED - IsFIELD RARE 
txCLASS SO. 

SiSUSCLASS SO. 

4SR0. OF VERTICES 

FIEL02 * ADDRESS IR ARRAY' FOR RECTARGULAR AREA SURROUIDIRG 
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i 

••Mil C* 

••••*4 C* 

•Mt45 .€• 

••#•*4 C* 

•M447 C« 

••M4t . C* 

•••449 C* 

••M74 C« 

•MtM C* 

•••472 C* 

••••71 C* 

••••74 C« 

••••75 C* 

••••74 C* 

•••077 C* 

••••74 C* 

••••79 C* 

•••••• C* 

•••••1 C* 

•••••2 C* 

•••••I C* 

•••••4 C* 

••••15 C* 

•••••4 C* 

•••••7 C* 

•••••• C« 

••••19 U 

••••90 C« 

••••91 C* 

••••92 t* 

••••91 C« 


CACH tiAUllC MUDn fOA EACH TiAtlllC MU4 5 •lECEl 
•A l•A0••AT|0• Aif 5TOACO. 
tniH ITAAT 
2*Lllt ElO 
litANALC tTAAT 


5*901 ITEA mo VCAIEX AARAT AQA VEATICE5 
or TNI5 MELD. 

VSATA2 - ADAEtf |A ‘AAAAV^ AOA TAAIAIAfi MELD VEATICEf. 

nom - tAAE At rioivt roA test melds 

MILOI • SAAE AS MELD2 fOA TEST MELDS 

YEATAS - SAAE AS VEATA2 ADA TEST MELDS 

•CTIDl • ADDRESS IIARAAT* ADR AERAORAAiCE TA*LE. 

TARES • TNAESAOLD VALUES 

tVAATA - STASOLS ADA EACH SUOCLASS. ALUS THRESHOLD STABOL 
AID OUTLIRE SYAIOLS. 

AtSA - TMAESNOLO AEJECTIOR AEACERTAGE - EAAIAICAL OATtOA 

COH - CDISTAAT AACTOA FAOA AAOAASUITV DEISITT AURCTIDA 

AROA ClASSIAV. ORE ADA EACH SUBCLASS. 

ALOAET - REV I AD 1 CAT IRQ AHETHEA GAOURO TRUTH MEL9S ARE 
ASSOCIATED HITH CLASSES DA SUBCLASSES. 

•0ALD2 - ID. DA TAAIAIAG MELDS 
■OALOS - ID. DA TEST AIELOS 

I0AET2 - ID. DA CHAIRELS USED IR CLA5S1MCATI0A. 

ACTVCt - CNAARELS USED lA CLASStMCATtOA. 

•0SUS2 •ID, pA SUBCLASSES USED IS CIASSIAICATIOA. 

•OTAAD - ID. DA CAOUAD TRUTH MELDS ADA UHICH AEAAOAAARCE 

tables hill be hade, eouals roaloi or aoaldz. 

T0TVT2 - TOTAL BO. DA VERTICES ADA TAAIAilG MELDS. 

I0CLS2 • so. pA CLASSES USED tl CLASSIMCATIDB. 

AATBO ' CLASS - CATEGOAT COAAESPOADEACE VECTOR 

<AAtBOn>*A HEARS CLASS I IS IB CATEGOAT •> 
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lOCAT 


•0. or CATfCOftICt. 


fUTfA • riAfi FOft SAATIAt MlTtRIIC ORTIOI. 

RARMT - fORNAT rOR OUTRUT RAR TAR| 

MUiT - ktV tIDICATIIft RMETMER OR ROT 0EII6IATED MELDI HERE IRRUT 
niMI - HO. rOR DESI8RATEO URtDERtUllE (R0SUI2*11 
•ftOTM • to. ROR DEllCRATED OTHER <R0$UI2»4) 

CROR - RARE OR CROR ROR HNtCH IRTERSIVE TE8T SITE tURRARV 

RIRORT It TO OE ROUTED. CROR It TO IE CORRAREO HITM OTHER 
ACROR * ACRE! OR 'CROR* - UtER IRRUT 
AOTMER * ACRES OR OTHER* - UIER IRRUT 
ATOTAt * TOTAL ACRE! IR CLASIIRIEO fEGRERT 
tlTf - RARE OR SITE CCLAStlRIEO lECRERT) 

ARALTi - RARE OR AIALUT RERRORRtlt tTUOV 

CARI - RARE OR RROCSDURE CORRItURATIOR USED IR tTUDT 

CRRREV - RET ROR tERERATIRt IRTERtlVE TERT f |TE lURRART RERORT 

RMLE - RARTAR RUE RURRER ROR tOltRLAT RUR RU20R 

IRO 


IRK it 




T4 4AR ft 1*tR4t04 t ti4tUt4 
I ft4t«714 


14 112 CRELETER) 

12 1 



/ 


•L POP.« 
POP 111 
fHtt PKOC 

§••••« 

•lOMO 

OOOtOi 

fOOOOS 

•00004 

•OOOOP 

•OOOOO 

•OOOOf 

•40010 

•••oil 

••••IS 

••••II 

••••14 

••••II 

••••U 

••••IP 

••••!• 

••••It 

••••{• 

••••SI 

••••SS 

••••SI 

••••S4 

••••SI 

••00S4 

••••SP 

••••SO 

••••St 


PtSPDP.fISPDP 
S403 ••?• 

llENflT PPOCESSCO 0» •• APO P4 AT 11sS4i4| 


• 1610 1 CITOf POUT 1 fISCOII* PCOPT 

INPLICIT OOUOIE POECIttOi CD 
■EAl COt.TMREt 


PAOAREUP PACCOL ■ 10. PACSft a 110. PAAOAfI a 1000. PAPLU * lOOt 
PARARCTOO PAGHRO a It. PtCLAO a 4 I, IfUtCL < PIClAO - 1 
OARARETER PtEOt « SI. POUTIR x PSCLA0«4. PtTR * S*POUTlR« 

• POARPlB PARIAR V t« PARPIl a 0 

CORROR OlOCAt 

CORROi /PIS/ OTRCPOUTLR.S). CODECPOUTLI). TAPOUT. OTURT. SKPIIR. 

• ORPtAR. OPTCOO. OrTfvRCS). OPTPT. SORLIR. ZORIAR. 

a lIRkIR . IIRIAR. NEDinOI. NEOSCIO). OTLIRE. OATECS). 

a corertcioi.oeougp.lirmit.prosar.lrpiar. 

a AIAR1. ASAR. EIAR1 . EIAR. CTSEDf. EOfHITi 

a oeorarcpseosi.triro.titio.oesroi.oesros.dupro 

CORROR /DOUR/ lOAODR. COLAOOCPACCOL). C0LIRCCPA6C0l>. ROCOL. 
a ROCOMR. MOUIR. NOLICRO. ORRURT. 

a PORCOI. AlAOD. REALIR. tVRPAG. TJRRCA 

CORROR /IRFIS1/ PI2RAR. OSPTDTCS). OSPVTR. nOEtC, IRPTl. IRURE. 
a ILIRIT. ILIREO. ILiRIC. IIARIT. tlAREO. ISARIC 

CORROR /CORfAR/ IARS0IICPARIAR).IR(PSARPI«4}.H0LARR(PARSAR.S>. 
a OUEPT. URTPAt. JSTATCZ) 

CORROR/URTIPS/ RAPfPARFUl. OTP|lE<PARP|l)« TIRFIl. 
a CTPIIE. IOLTSTCPARFUI. NOLTfTCPARFlLV. TOTPCT. 

a PERCRTCPOUTlfl.PARFlD.SCRtCPARPtU. 
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OF POOR quality; 


iMs* 

•MSI • 

•••12 • 

•••SS 

•••14 M 0 € oticia 2 fiTav mut 2 OEFCoa> rcoav 

•• 01 ) 

•••)• 

•••!» ia» 

• uaoa MOCEouac n eeb n fii)it2o • •20))2S2 u i? (oeletco) 

1 •20)«240 t2 1 


2•cc•ouua••*aflL>• iuDCN<aAaf u>. 
aaLicaiOAom). Ttuca. tnoicn 
.Atmi 



• rOi.t MZIOfflSKAAA.FlZIOR.FlllOM 

Ulim not FQATRAI V exEC II LEVEL Z)A ’CEXECI LEVEL ElZttOtlOAl 
TNlt COUFIIATIOI HAS OOIE 01 OA APH 74 AT lltZitAS 


tUIPOUTlHE FIZlOH 


El 


,42 


tTOHAOE U.SEOi CODECS 0004411 OATA<4> 000074| ILAIA C0RH0K21 000000 


iKTEtlAL REPEPEHCES ttLOCK, IARC> 

0041 PDLIIT 
•004 lERRlS 


•TQRACi ASSICRREIT CtLOCK, TYPE, RELATIVE LOCATIOR, RARE) 


0001 

•00017 

1076 

0001 

000104 

1S1G 

0001 

OOOZ44 

1446 

0001 

OOOSZZ 

1736 

0001 

000217 

20L 

•001 

•oozzz 

SOL 

0001 

OOOZ41 

40L 

0001 

OOOZS7 

43L 

0001 

000131 

44L 

0001 

000334 

30L 

0000 

1 000034 

•OROUR 

0000 

1 000000 

PL 

0000 

1 000024 

1 

0000 

1 000034 

It 

0000 

i 000033 

IE 

0400 

t 000017 

IJ 

0000 

000040 

lOJPt 

0000 

1 OOOOSO 

IPT 

•000 

1 000031 

i 

0000 

i 000032 

■ 1 

•••• 

1 OOROZZ 

■V 

0000 

1 0000S1 

SAMPS 











•0101 

1« 


tUIROUTIIE P|2IOR(mH.LIRUM.lR*OOPLO«PIELD.PLOSAV*VERTEX, 

•0101 

2» 


• R0SUl3»SAMSTR.SARER0.SANlRC,LllliC> 

•0101 

S* 

C* 


•0101 

4« 

C* 

THIS SUOROUriRE SETS THE SYHOOL IRDEX 10 THE CLAS3IPIED LIRE 

00101 

3* 

c* 

ARRAY TO OUTLIIE TRAt01>6 OR TEST PIELOS IH THE MAP. 

00101 

4« 

c* 


•OIOS 

7* 


IMPLICIT IRTE6ERCA-2) 

00104 

4« 


OIMERSIOI lR(1).FlELO(3.tDPLO>.PLDSAVC4,IOPLD>,VERTEXf1) 

•0103 

•• 


OIMERStOli PL(22> 

•0104 

10« 


00 30 IsI.ROPLO 

•0111 

11* 


|P(L1RUM*LIRIRC .LT. flELDll. I>>G0 TO 30 

tons 

12* 


IPCLIIUM^LINIHC .6T. PIELDIZ.IMGO TO 30 

oom 

IS* 


IPCPIELOO.n .6T. SARER0>60 TO 30 

00117 

14* 


|PfPIEL0<4.n .LT. SAMSTR>60 TO 30 

00117 

13* 

c* 


•0117 

14* 

c* 

POUIO A FIELD THAT REEDS RORDER OR THIS LIRE. ROH PIRD FIELD 

00117 


c* 

IRTERSECTIORS OR THIS LIME. 

•0117 

10« 

c* 


•0121 

10* 


RVsPLOSAVCA.I) 

•0122 

20* 


IPTsPIELDCS, l> 

•0122 

21* 

c* 


•0122 

22* 

c* 

TOP OR ROTTOM 

•0122 

25* 

c* 


00123 

24* 


|PCLIIUR.6T.pfELD(2.mC0 TO 40 

•0123 

23* 


IFCLIRUM.LT.nELbd.inCO TO SO 

00127 

24P 


call POLtHT(VERtEX(tPT).RV.PL.ltRUR. samps. R 1) 

••ISO 



00 20 JsI.Rl.Z 

•01SS 



IR MPLCJ>-SAM3TR>/SAMIIC 

•0134 



lEi<PLU*1>-3AMSTR)/fAMIHC * 2 

•0133 

SO* 


|P(M0D(SANS1R.SAH|RC>.RE.M0D(PLW>«SAMtRCnlR:|R»1 

•0137 

SI* 


IP HR .LT. SANSTR) GO TO 20 

00141 

S2* 


IP <IE .6T. SAMEROI CO TO 20 

•0143 

SS* 


IP (IR .GT. SAHEROl 60 TO 20 

00143 

S4« 


IP (IE .LT. SAMSTRi 60 TO 20 


PILZOR 

PILZON 

fllZOR 

•ILZOR 


DBIGlNAi; PAGE IS 
OP POOR QUALm 


1H24I4S 


n. 

IS* 


lOisufistsvil 

•OMO 

S4* 


imA<u>.GT.iosu5S>50Aiuii « aosuts « s 

•tliz 



ia(U)sBOAauii 

••15] 

!•• 



••155 



l•(ll> * •oaauii 

••15i 

4^* 


ZB COBTliUC 

••1M 

41* 


CO TO 50 

••1A1 

42* 


IB coiTiaue 

•OUl 

4S* 

C* 


• •U1 

44« 

c* 

CCT UTERCE7TI 700 TOO URC IB FIEIO 

••1*1 

45* 

c« 


••1AZ 

4i« 


CALL 7DLIRT<VCBTEX(|7T>.av.FL.MUDt1.l1.|AIIM, 

• •US 

47* 


60 TO 45 

••US 

40t 

c* 


••US 

4f« 

c* 

GET laTEBCERTf FOB BOTTOB LIRE IB FIELD 

••US 

]•• 

c* 


••U4 

51 ■ 


40 CALL FDLIBT(VEBTEX(|FT)«iy.FL.FIElO(Z.I).SAftM, 

••US 

5Z« 


45 DO 47 Jsl.Bf.Z 

••170 

5S« 


IB t (FUJ>-SAB5Ta)/5ABUC 

••171 

54* 


IE s <FLU*1)-$4NSTA)/SABtBC * 2 

••17Z 

55* 


lF<RQO(tANSTB.SABtBC>.aE.BOOfFL( J>.tAN|BC>MBx| 

••174 

5*« 


00 44 IJxlB.IE 

••177 



IF UJ AT. SAHSTIO 60 70 44 

••Z01 

5i* 


IF (Ij .67. SANEBO) GO 70 44 

•ftZOS 

50* 


•oaauBxisvil 

••Z04 

••* 


IFUB<I J>.C7.adSUBS1l0aaUf|xB0SUBS«S 

••Z^4 

•1 * 


IBflJ) X BOBBUH 

••Z07 

•Z* 


44 COBTUUE 

••Z11 

4S* 


47 C0R7IBUE 

• •Z1S 

• 4* 


50 cobtibue 

••Z1S 

•5* 


EBD 


nizoN 

fiizon 


VILZON 

^ILZON 


nizoR 

mzoN 


fiotizzo 


CIO or COHmATlOii 
MZiOK tTOIOLIC 


oucaosTict. 


#• APS n l1iZ4t47 • tJASniO U A9 


CDlLtTCOr 
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• ftmTISVAAA.MZrLT.f I2fLT M 7« 11l24|4Z 

UIIVAC 1104 fORTAA* V EXiC II LEVEL ZEA >(£X£Ct LEVEL El2»1Q«1tA> 

TMIt CON^ILATIOI MAS OQIE 01 OS AMM Z4 AT UtZ4i4Z 


SUIIOUTtlE EIZFIT EITAV »Oli 


STOtASC USEDt COCE<t> OOOSSSi OATACOI OOOOSii ILAMK COIMlOia> OOOOOO 


CMMI 

•MS 

•LOCKS 

Ml 

•00414 

•••4 

ORUR 

000044 

•••S 

ISFIZI 

•00015 

•••A 

CORSAfl 

•15540 

•••r 

UITtFZ 

•012 14 

MIt 

•isn 

•01 170 


fXTEMIAl •EFEtCICES f SLOCK. SAME) 

••II fIZTST 
••It SEMIS 


STOKASE ASSIGINEBT LSLOCK. TVFE. AELATIVE LOCATtOS. ■ARE> 


•OOI 


•000Z4 

1326 

•001 


•00045 

145G 

0001 


000122 

1446 

•001 


000050 

2000L 

0001 


000045 

3 00 La 

OOOI 


•••102 

5020L 

0001 


000270 

4000L 

0010 


001542 

ACROP 

0004 


000042 

ALADO 

0010 


001351 

ARAL vs 

•OIO 


•01S4I 

AOTNEO 

0005 

1 

000575 

asar 

OOOI 

i 

000374 

ASAR1 

0007 


003215 

ATFILE 

0010 


001344 

atotal 

•OM 


•••570 

•RCORO 

•010 


000571 

•RiEAT 

0010 


000547 

• RFLG 

0004 

i 

015554 

• UFPT 

0010 


•01354 

CARS 

•OIO 


•ooooo 

catflc 

0010 


000001 

CATHAR 

•010 


000572 

COATS 

0007 

1 

005171 

CHARGE 

0010 


000074 

CISRAR 

•OIO 


•00440 

CLSSUO 

•003 


000204 

CODE 

0004 


000001 

COLADO 

0004 


000011 

COLIRC 

•oos 


000354 

corert 

•OIO 

0 

001075 

COO 

0010 


001541 

CROP 

0010 


001544 

CRPKET 

0007 

1 

000021 

CTFILE 

0003 


000400 

ctseds 

•SOS 


000S54 

DATE 

0005 


000570 

DEOUGF 

0010 


001554 

OESKEV 

0005 


000451 

DESR01 

0003 


00;M32 

0ESR02 

•OIO 


•01S40 

OESOtH 

0010 



DESUNt 

0005 


000515 

OFTCOO 

0003 

1 

000520 

DFTPT 

0005 


000314 

OFTSYR 

•004 


•000S1 

OORHOT 

0005 


000001 

OSPYOT 

0005 


000005 

OSPYTl 

0005 


000435 

OUPRO 

0010 


000544 

ERPTRS 

•OOI 


•00401 

EOFNIT 

0005 

1 

000577 

ESAR 

0005 

1 

000574 

ESAR1 

0010 


001175 

FETVC2 

0010 


000575 

FIEL02 

••!• 


•00400 

FIELDS 

0010 


001554 

FILTER 

0005 


000000 

FIZIAR 

0005 


OOOO04 

FLOE SC 

0010 


001171 

FLOKEY 

•OIO 



flosvz 

0010 


000577 

FL0SV5 

0004 


000052 

FOR 

0005 


000527 

ME01 

0005 


000541 

NED2 

••10 


•01001 

NIGH 

0004 

1 

011454 

NOLARR 

0007 


005203 

MOLECN 

0004 


000027 

HOLLIR 

0000 

I 

000001 

NOLSAR 

•••7 


0000S2 

MOLT ST 

0004 


ooooso 

NOLURD 

0000 

1 

000002 

1 

0004 


000000 

ISAODR 

0005 


•00010 

HIRED 

•••5 


•00011 

ILIRIC 

0005 


000007 

ILIRST 

0000 

1 

000003 

IRIRUS 

0000 


000004 

IRiPS 

•005 


000004 

1RLIRE 

•••5 


•00005 

tOPTS 

0000 

1 


IPLUS 

•004 

1 

001750 

IR 

0005 


000015 

ISARED 

0005 


•00014 

ISARIC 

•005 


•00012 

ISARST 

0007 



ISIDCH 

0007 


•00022 

I8LTST 

0004 


•15554 

jstat 

•010 


•01257 

katro 

•OOI 


•00571 

LIRHIT 

0005 


000325 

LIRLIH 

OOOI 


•00324 

LIRSAR 

0005 


000375 

LRPSAR 

•007 


OOOOOO 

RAP 

••!• 



RAPFRT 

0010 


001347 

■ FILE 

0010 


001 155 

ROCAT 

0010 


001254 

R0CLS2 

0004 


000025 

ROCOL 

•004 


•000Z4 

OOCOHR 

0010 



•0FET2 

0010 


•01172 

R0FL02 

0010 


001173 

ROFLOS 

0010 


000554 

ROHAP 

•OIO 


•01ZS3 

00SU02 

0010 



I05UI5 

0010 


001234 

ROTRFO 

0007 


000010 

OTFILE 

0003 


•00353 07LIRE 

•OOI 


000112 

OTURT 

0010 



PCFOKV 

OOlw 


•00402 

PCT105 

0007 


000041 

PERCRT 

0010 


000544 

pltkey 

•OOI 

t 

000572 

FROSAR 

0004 



RE AL U 

0000 

I 

000000 

SAMPLE 

0004 


OOOOOO 

SARSOH 

0003 


000402 

SEDRAR 

0010 


001345 

SITE 

0005 


000513 

SKPLU 

0003 


000314 

SKPSAR 

0010 


000543 

STATKT 

0010 


000344 

suicat 

0010 


000175 

SUSOAR 

0010 



SUORO 

0005 


000000 

SYR 

•010 


000477 

SYRRTX 

0004 


000044 

SVRPAG 

•OOI 


000511 

TAFOUT 

0007 

I 

000022 

TEST 

0007 


005214 

TNOLCM 

0010 

R 

000403 

THRES 

0010 


000542 

thrsky 

•010 


•00545 

TNRSVA 

0007 



tirfil 

0004 


000045 

TIRREA 

• 007 


00S213 

TISLCM 

•007 


•00042 TOTPCT 

•OIO 


•01255 

T0TVT2 

0010 



T0TVT5 

0010 


000541 

TRRKET 

OOOI 


000427 

TRRRO 

•010 


000540 

TSTKET 

•oos 


000410 

Tsrio 

•004 



UOTFAS 

•010 


•00574 

VERTX2 

0910 


•00401 

VERTXS 

•••7 

0 

00147S 

ZCRI 

•OOS • OOOSZI 

20RLII 

OOOI 

0 

•00I2S 

ZORSAR 

0007 

9 

••1113 

2FC 
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1 


«Mi 

!• 

ooios 

2« 

0010A 

S* 

OOIOS 

S* 

0010* 

S* 

0010* 

S» 

0010* 

S» 

0010* 

S* 

0010F 

5« 

00110 

S* 

0*111 

S* 

00111 

S« 

00111 

S» 

00111 

!• 

00111 

S» 

0011Z 

S« 

001 1Z 

5* 

0011Z 

S* 

0011Z 

5« 

0011Z 

S* 

00112 

5* 

001 IS 

5« 

0011S 

S« 

0011S 

5» 

00114 

S« 

00114 

5* 

oom 

S» 

0011S 

5« 

0011* 

S« 

0011* 

S« 

soil* 

5» 

0011* 

S* 

6011* 

U 

0011* 

S» 

0011Z 

5« 

001Z0 

4« 

001Z1 

4* 

00121 

4« 

00121 

4* 

00121 

4« 

00121 

4* 

00121 

4* 

00121 

4* 

00121 

4* 

00121 

4* 

00121 

4* 

00121 

4* 

00121 

4« 

00122 

4« 

00125 

s« 

001ZS. 

«• 

0012S 

?• 

00125 

0* 

00124 

*• 

00124 

10* 

001Z4 

ii» 

00124 

12* 

00124 

IS* 

00124 

14 • 

00124 

IS* 

00124 

u* 

00124 

17* 

00124 

10* 


c 

c 

c 


c 

c 

c 




fUlftOUTUE FIZ^LT CLiaE.KEVML.il. IS) 

inaLiciT laTECEi ca-v> 

IBCLUOE MZCON^ LIST 
lOLlCiT DOUIkf aaECIStOl (Z) 

■EAL COa.THBES 


^AftAHETSaS 

aAAANETER PAfiCOL >10. PAGSVa r 110. OAOSAtt > 1000. PAOLla >1000 
OARAACTEO RAGHOO > 1«, RSCLAD > «1. ISUOCL > RSCLAO - 1 
RARARCTER RSEDS > Z1, ROUTlR = RtCLAD*0. RSVH * Z*R0 UTlR. 

• RSARRS* RARSAR » 5 , RARE I t * 0 

CORROB BLOCKS 


CORROB /MZ/ SVRCROUTLB.Z). COOE(ROUTLB). TAROUT. OTUBT . SKRLIB. 

SKRSAR. DFTCDD. DFTSVR(Z). DFTPT. ZORLIB. ZONSAR. 
LIRLIB , LIRSAR. MEOKIO). NEOZCIO). OTLIBE. DATE<Z> 
COREBTCIOI.DEBUCF.LIRHIT.RROSAH.LRRSAR. 

ASAR1. ASAH. ESARI. ESAR. CTSEDS. EOFRIT. 
SEOBAR(R$ED$).TRBBO.TSTaO.OESR01.0ESBOZ.OURBO 
CORROB /DRUB/ IIAODR. COLAOD(RAGCOL) . COLIBCCRAGCOD . BOCOL. 
BOCOMR. HOLLia, HOLHRO. ORRRRT. 

FORCt). ALADD. REALIB. SVRRAG. T|RR£A 
CORROB /IBFtZI/ FIZBAR. DSPVDTCZ). DSRVTR. FLDESC. IBPTS. IBLIBE. 

ILIBST. HIRED. ILIBIC. ISARST, ISAREO. ISARIC 
CORROB /CORIAR/ tARSDU(RARSAH>.lR(P$ARRS.4).HQLARR(RARSAR.Z>, 
BUFRT. UBTFAS. JSTAtCZ) 

CORROB/UBTIFZ/ RARCRARFIL). OTFHECRARFIL ). TlRFIl. 

CTFILE. ISLTSTCRARFIL). NOLTSTCRARF I U . tOTRCT. 
REBCBTiROUTLB.PARFlD.ZCRICRARFIL). 
ZRCCROUTLB.PARFH). ISIOCNCRARFIL). 
MOLECM(PARFIL). TIUCN. TNOLCH 
.ATFUE • 


EBD 

IBCLUOE CROC 10. LIST 

C0RR0B/0ISRL/CATFLC.CATBAR(A1).CLSR/.R(A1>.SUBBAR(«1>.SUBB0(A0), 
SUBCAT(AO>.US$UB(60).MORAP.TOTVTS.RO$UBS. 
RCFDKV.TSTKEV.TRBKEV.THRSKV.STATKV.ERRTRS.THRSVA. 
RLTKEV.BRFLG.IRCORB.BRFiAT.CDATECZ). 
FL0SVZ.FIELDZ.VERTXZ.FLr>SVS.FIELD3.VERTX].RCTIDS. 
THREt(AO).SVRRTX<A«).H'.GH<00>.COB(«0) . 

•FLORET. BOFLOZ.ROFLDS.BOFCTZ.FETVCZC SO) 

.BOSUBZ.BOTRFO.TOTVTZ.BOCLSZ 

.RATBOCOOl.BOCAT. filter. RAPFRT 

.DESKET.DESUBI.DESOTH.CROR .ACROR.AOTHEB.ATOTAL 

.SITEC4>.ABALTSCS).CARS(10).CRRKET 

•BFILE 


EBD 

PIHEBStOB TESTCRARFIL.Z), CMABGECRARF IL .Z) 


FILZOR 


EOUIVALEBCE STATERERTS 

EOUIVALEBCE <TESTC1.1).ISLTST<l)).«TESTtt.Z).H0LTSTCl)l, 

• CCNABGECt.1>,{SL0CH<1)>.<CNABGE<1.2).K0LECMf1>> 


TEST DETERRIBES IF SCAB LIRE HILL NAVE 
- OEFAULT VALUES 
B BO FILTERIB6 
• filtebibs 
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I 


IM* 

1ft 

C 




OOlti 

21 1 

t 

•01 

22t 

IF IKEVFIU 1000. 2000. 1000 

••US 

21* 

C 

••US 

24* 


••US 

2St 

C CN^ATE A SCAK ijOE OF FOIRTER DEFAULT VALUES 

••US 

20t 


••US 

27t 

C 

••ISO 

20t 

1000 CORTIOUE 

••1S1 

2ft 

DO 1050 SAA7LE * 1, FfOSAfl 

••1S4 

!•« 

MOLAM(SANFLE.OUFFT> = OFTFT 

••IIS 

lit 

10S0 COITIIUE 

••117 

12t 

60 TO 4000 

••117 

!!• 

t 

•0117 

14t 


•0117 

ISt 

C SET VALUES |« HOLAlU EQUAL TO VALUES !• >• AMAV 

••117 

lOt 


•0117 

S7t 

C 

•0140 

lit 

2000 COiTlIUE 

••141 

1ft 

M0LSA6 s 0 

•0142 

40t 

DO 2050 SAHPie ■ ASAN, ESAO 

•014S 

41 1 

MOLSAF : NOLSAM * 1 

•0140 

42t 

MOLAM(SAflPLE»luFPT> * 1 •< SAAPLE . L I'lE > 

00147 

41 1 

2050 COfTIlUE 

•01S1 

44* 

IF (NOLSAfl .IE. FtOSAlU HOLAOMNOLtAfl*1 .lUFFT) t OFTFT 

O01S1 

45* 

60 TO 4000 

••111 

AO* 

C 

•om . 

47* 


•01S1 

Alt 

C SFATIAL FllTEF SCAHHE* LIRE OF IRFUT DATA 

•01S1 

4f* 


•eisi 

SOt 


••1S4 

SI* 

1000 CORTIRUE 

•01SS 

52* 

HOISAR X 0 

••ISO 

55* 

IF (ASAH1 .EO. ASARl CO TO 5020 

•0100 

54* 

HOLARR<1.0UFPT> * IRCASAR.URE) 

•0101 

55* 

MOLSAR s 1 

00102 

50* 

102« CORTIRUE 

•0101 

57* 

00 1010 SARPLE « ASAR1. ESAR1 

•0100 

5|. 

M0L8AR > MOLSAR *1 

•0107 

5f* 

1*1 

•0170 

00* 

IF IIR<SARPLE.LtRE> .EO. OFTFT) 1*2 

•0172 

41* 

IRIRUS * SARPU * 1 

•0171 

02* 

IFLUS » SAMPLE *1 

•0174 

01* 

CALL FIZTST (TEST(CTFILE.I). CHARGEt CTFILE. I > . 

•0174 

04* 

* IRfSARPLE.LIRE). NOLARR(MOLSAR.BUFPT). 

•0174 

OS* 

t IRCSARPLE.M). IRtSARPLE.Il), 1 R ( 1 R t RUS . L 1 RE ) . 

•0174 

00* 

t |R<1PLUS,LIRE) . IRMHIRUS.IU. IR( IPLUS. 1 5 ) . 

•0174 

47# 

t IRflPLUS.m. IRURIRUS.m. DFTFT) 

•017S 

41* 

1010 CORTIRUE 

•0177 

4f* 

IF (HOLSAR .EO. FROSAR)' 00 TO 4000 

•0201 

70* 

HOLSAR X HOLSAR * 1 

•0202 

71* 

M0LARR(M0LSAR.IUFPT> * IR(ESAR,L|RE> 

•02«1 

72* 

IF LKOLSAR .RE. PROSAR) H0LARR(N0LSAR*1 .OUFPT) ■ OFTPT 

•02«S 

71* 

AOiiO RETURR 

•0200 

74* 

ERO 


IIP OF COMIlATtOts 10 DIA6I0STIC1. 
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• rot,* riZtAt/SKAAA,F12nAt.n2tAt 

UtIVAC not FOtTRAI V EXEC II LEVEL Z5A -<EXECI LEVEL E1201«t10A> 
THIS COttUATlOt MAS DOSE 01 01 Att 74 AT lltZAiSO 


tUltOUTSRE riZIlAt EITRV tOIIT 0004/0 


trOtAGE USED I C0DE <1> 0007041 0aTA( 0 > 0007|1t ILAHK COttOlUl 000000 
CORNOO ILOCXSt 

0003 riz oooASA 

0004 DOUR 000044 

0005 lIMZt 00001S 
0004 COtSAR 01SS40 
0007 UOTirZ 003214 

0010 OISPL 001370 

0011 CLOIAL 000074 


iXtItlAL REFEREHCES (OLOCK, RARE) 


0012 

SETRRG 

0013 

RREAD 

0014 

RUDUt 

0013 

0I02S 

0014 

01011 

0017 

RERR4I 

0020 

RERR31 


STORAGE ASSIGHREIT (ILOCR. TVtE, RELATIVE LOCATIOR, SARI) 



0000 


000337 

100E 

0001 

000012 

1000L 

0001 


1020L 


000132 

1100L 

0001 


000203 

1110L 



0001 


000374 

11I0L 

0001 

000444 

1200L 

0001 

000403 

1S00L 

0001 

000075 

142G 

0000 


000340 

200F 



0001 


000147 

2UG 

0001 

000144 

224C 

0001 


2336 

0001 

000277 

Z43G 

0000 


000413 

270F 



0001 


000304 

271G 

0000 

0004Z1 

200F 

0000 

000432 

2I5F 

0000 

000433 

200F 

0000 


000433 

300F 



0001 


000434 

3000L 

0001 

000330 

3416 

0001 


S44G 

0000 

000433 

330F 

0001 


000340 

3306 



0001 


000420 

344G 

0001 

000423 

370G 

0000 


400F 

0910 

001342 

ACROP 

0004 

1 

000042 

ALADO 



0010 


001331 

ARALY8 

0010 

001343 

AOTHER 

0003 

000379 

A$AR 

0003 

009374 

ASAR1 

0007 

1 

003213 

ATFILE 



9010 


001344 

ATOtAL 

0010 

000370 

ORCORI 

0010 

000371 

irfeat 

0011 

000033 

ORFILE 

0010 


000347 

IRFLG 



0011 


000034 

SRKEV 

0004 

013334 

• UftT 


001334 

CARS 

0010 

000000 

CATFLC 

0010 


000001 

CATRAR 



OOiO 


000372 

COATE 

0010 

1 000074 

CLSRAR 

0000 

1 000314 

CLSIUR 

0010 

000440 

CLSSUI 

OOOS 


000204 

CODE 



0000 

1 

000002 

COL 

0004 

1 000001 

COLAOO 


000013 

COL IRC 

0003 

000334 

CORERT 

0010 

t 

001073 

COR 



0010 


001341 

CROP 

0010 

001344 

CRPREt 

0000 

I 000314 

CTCOL 

0007 

t 000021 

CTFILE 

OOOS 


000400 

CTSE03 



0000 

1 

000323 

CTUR 

0011 

000033 

DATAPE 


000334 

DATE 

0011 

000071 

DATFIL 

0003 


000370 

DERUGF 1 



0010 

1 

001334 

OESKEY 

OOOS 

I 000431 

0ESRO1 

OOOS 

t 000432 

DESR02 

0010 

001340 

OESOTN 

0010 


001337 

DESURt 





000313 

OFTCOD 

0003 


OFTPT 

0003 

000314 

DFTSYR 

0011 

000047 

ORRHDS 

0004 


000031 

DRRURT 





000044 

ORUHAO 

0003 


OSPYOT 

0003 


05PYTR 

OOOS 1 

1 000433 

DUPRO 

0000 

1 

000324 

EODRLI 





000344 

ERPTRS 

0003 

000401 

EOFNIT 

0011 


ERtPTP 

0011 

000043 

ERPREY 

0003 


000377 

ESAR 

■7. 




000374 

ESAR1 

0010 


FETVC2 


000373 

FIEL02 

0010 

000400 

FIELDS 

0010 


001334 

filter 





000073 

FIZHL 

0011 


FI2REY 

0003 


FIZRAR 

0011 

000073 

FIZURT 

0003 

I 

000004 

floesc 





001171 

FLOREY 

0010 


FL0SV2 

0010 

000377 

FLDSVS 

0004 I 

t 000032 

FOR 

0011 

1 

000000 

MEAD 


■i 

0003 


000327 

NED1 

0003 


HED2 

0010 


NIGM 

0011 

000037 

HISFIL 

0011 


000040 

HI8RET 





011434 

MOLARR 

0007 

003203 

MOLECN 

0004 


MOLLIR 

0007 1 

1 000032 

MOLTST 

0004 


000030 

HOLMRD 




1 

000317 

I 

0000 

1 000332 

lADDR 

0004 


IIAODR 

0000 I 

1 000321 

1C 

0000 

1 

000327 

IDR 


f 


1 

000313 

lERD 

0003 

000010 

ILIREO 


000011 

ILIRIC 

0003 

000007 

UIHST 

0000 


000701 

IRJPI 

•r 




000004 

IRLIRE 

0003 

000003 

IRPTt 

0004 

001730 

It 

0000 1 

1 900322 

IS 

0003 


000013 

ISAREO 

’ 

1' ■ 

0003 


000014 

ISARtC 

0003 

000012 

ISAH3T 

0007 

003173 

ISLOCN 

0007 1 

1 000022 

ISLTST 

0000 

1 

000320 

ISTRT 


f-'' 

0000 

1 

000334 

tout 

0004 

013334 

JSTAT 

0010 

001237 

RATIO 

OOOS 

000371 

IIRNIT 

0003 

1 

000323 

LIRLIR 


y.;- 

0003 

1 

000324 

LINIAt 

0000 

1 000333 

lUE 

OOOS 

000373 

LHPfAN 

0007 

000000 

MAP 

0010 


001333 

RAPFRT 

1 








0000S2 
I 00002S 
00117S 
000910 
000002 
I 000)SO 
000054 
000072 
I 00017S 
000111 
000020 
000555 

0 001071 


001107 
001174 
I 001211 
000112 
000500 
I 000043 
001145 
000501 
I OOOOOO 
0 000001 
001211 
000501 
000570 
0 000121 


0*1111 
000045 
I 000550 
000070 
t 000511 
I 000524 
000111 
I 000513 

000477 

000542 

000042 

000427 

000401 

» 001111 


00101 

1 » 

00101 

2 * 

00104 

!• 

•0105 

!• 

•0100 


•0104 

1 * 

•0104 

1 * 

•0104 

1 * 

•0107 

1 * 

00110 

1 * 

•0111 

1 * 

00111 

3 « 

•0111 

1 * 

•0111 

!• 

•0111 

!• 

00112 

!• 

•0112 

!• 

•0112 

]• 

•0112 

1 * 

•0112 

!• 

00112 

!• 

00111 

3 » 

•0111 

!• 

•0111 

!• 

•0114 

1 « 

00114 

!• 

00115 

!• 

•0115 


•0110 

1 * 

•0110 


00110 


00110 


•0110 

]> 

•0110 


•0117 

!• 

• 0120 


00121 


00121 


00121 


boi2i 


boi 2 i 


00121 

4 « 

00121 


•0121 

4 « 

•0121 

4 « 


SUOROUTIOC 7121140 <000400. 0 
IRPIICIT tOTEOCR <4-2> 
tOCLUOE M2C0H.UST 
tOPlIClT DOUOLE POECIIIOO <21 
0E4i COO.THOEt 


P4040ETE0 04GCOL « 10. P4GSTII « 110. 04004H * 1000. P40LIO « 1000 
P4040ETE0 P4CUR0 » 19. PSCL40 « 41. tSUOCt « PSCL40 - 1 
P4040ETER PSEOS « 21. POUTLO > P5CL40*4. OSVN s 2«00UTL0. 
t P040P5S P40S40 • 5. P40m * 0 

COMOOl /PIZ/ SVR<POUno.2>. COOEIPOUTLOI. T4P0UT, OTUIT. SKPllO. 
t 0KP54H. DPTCOD. DPTSV0<2>. OPTPT, 20HLIO. 200540. 

• IIOLIO . L 10540. HEDK101. NED2(10>, OTLIOE. 04TE<21. 

• COOEIT<tO>.DEtUGF.UOMfT,POQS40,LOPS40. 

• 45401. 4540. E5401. ES40. CTSED5. EOFMlT. 

• SE004O<P5EOS>.TOI0O.TST00.0ES0O1.DESR02.DUPIO 
COOOOfl /OOUO/ I04DD0. COL4DO(P4CCOL) . COL I OC CP4CC0L > . OOCOL. 

• lOCOUO. NOLLll. NOlUOD. DROtfOT. 

• F0R(0>. 4L4DD. nE4LIR. SV0P4C. T1RRE4 

CORROI /1RFI2W FI2R40. D$PVDT(2>. DSPVTR. FLDESC. IRPTS. IILIIE. 

■ ILtlST, ILIHED. lime. IS40ST. IS4RC0. 1S40IC 

COROOl /C00S4R/ t40SOy(P4RS40).tR<PS40P5.4>.NOL4RR(P4RSA0.2>. 

• RUFPT. URTF4S. JST4T(2> 

CORROR/UITIFZ/ 04P<PARFIU. OTFKCCPARF U >. TIRFtL. 

• CTFUE. I5LT5T(P4RFU>. HOlTfKPAOFUl, TOTOCT. 

• PERCRT(POUTII.P40F1L>.7COMP4RF|L>, 

• 2PC(P0UTLR.P4RF|L>. tU0CM(P4RFU>. 

• M0LECN<P4RF|L>. TISLCH. TNOLCN 

• .ATFUE 
ERD 

IICIUOE CR0K10.LIST 

C0RR0R/0ISPl/CATFLC.CATHAR<41>.CLSRAO<4l>.5USRAH<41>.SUll0<O0>« 

• tUICAT<40>.CLSSUI(40>.R0RAP.T0TVT3.00SU01. 

• 0CFDKV.TSTKE1.TRRKCV.TNR541,5TATRf .ERPTRS.T0R5VA. 

• OlTKEr.tOFLC.RRCORO.OOFEAT,COATE(2). 

• PLDIV2.FIE102.VERTX2.FL0SV1.F1EL0S.VERTX1.PCTIO1. 

• TOREfi4O>.SVROTX<44).HlGNC40>.C0R<40) 

• .OLDXET.OOFLDZ.ROFLDl.ROFETZ.FCTyCZilOl 

• ••0tUIZ.I0TRF0.t0TVT2.l0CLS2 

• .tATIOUOI.IOCAr«flLTiO.RAOPI|T 
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PILIOII 


1 

4 

00121 

: 4 

00121 

4 

00122 

. 4 

0012S 

5 

00124 

5 

00124 

5 

00124 

5 

00124 

5 

00125 

5 

001ZO 

0 

00120 

7 

00120 

S 

00120 

0 

00120 

10 

001Z0 

11 

00127 

12 

00150 

15 

00150 

14 

00150 

15 

00150 

10 

00150 

17 

•0151 

IS 

•0152 

10 

•0155 

20 

•0154 

21 

•0155 

22 

•0155 

21 

00150 

24 

•0157 

25 

00157 

20 

•0157 

27 

•0157 

21 

•0157 

20 

00140 

50 

00141 

51 

00142 

52 

00145 

55 

00144 

54 

00140 

55 

90140 

50 

•0140 

57 

00140 

50 

00140 

50 

00140 

40 

00150 

41 

00152 

42 

•0100 

45 

00101 

44 

00104 

45 

•0100 

40 

•0107 

47 

•0107 

4S 

•0177 

40 

•0200 

50 

•0200 

51 

•0210 

52 

•0212 

53 

•0225 

54 

00225 

55 

••250 

50 

00252 

57 

••240 

5t 


• ."bCSKET.OCSUtl.DESOTM.CKOr . ACftO^.AOTHEK. ATOT aL 

• .SITC{4).AIALV$U».CAIISf 1«).CffPK|V 

• •■MIE 
CIO 

IICIUOC COMCA^IST 

COINOI/llOIAt /ME AD< 42 ) , MAPTaP . OATAME . $AVT AP. Ilf I lE , IHKET « 

• NItf tl.H|SAEV.TR/OAK.EII|^TP,EMK|V.NAPUIT,IOMiE. 

• ORUHAO.DMMOS.PACSI2.0ATFII.STATIL 

• .EIZUIT.fUKET.FUAtL ElLZOI 

CIO 

OIIEItlOl 0IIARI<l0C0UII«Z.IIEAUI.2).STATCZ).C0t<PAGSVI.l) 


EOMAT ITATENEITS 


100 EORRAT (/> 

ZOO EOIHAT </./«T4Z.’0IfOlAV OE FIEIO *.A«.* PIOOUCCO IV EIIZOI.*. 

• /.T4Z,44<*-)./,/./.T40.‘mTEI * * . M ,T«0. ’ ISLARO TEST 

• IZ.TiO.'MOlC TEST » .IZ./. 

• /./.T45. * CLASS* ,T7Z. SUiCtASS* ./,T4Z. 10. * ,TSO. 

• *lAHE'.T7Z,*IO.*.T7t.’OAHE' .7|S.*SVR|0L‘) 

ZZO fOUAT CT7Z.lZ.t7i.A0,TI7,A1./.tH*.T»7.A1) 

200 FORMAT (7.T4Z. 12. tSO.AO«T7Z.IZ,T7|.AO«T|7.Al./.1H*. T07 .au 
205 FORMAT (/./> 

200 format (TO. 11011) 

SOO FORMAT (/.TO. *•• •ERROR* • t F1L20R. SUIROUTIIC F I2MAR * ./.TZO. 

• 110. * IS Al tUEGAL DRUM ADDRESS. '«/> 
m FORMAT l/./.T71.*SPEClAL SVMOOLS* . / .T7J. IS( * - * U 
400 FORMAT (/•T7Z.I2.T70.AA.TS7.A1«/.1M*.T07.A1./> 

C 

C».«t 

C IIITIALIZATIOI 



CALL SETMRC (OO.O.OO) 

CTCOL « 0 
lElO * 0 

1000 CTCOL * CTCOL *1 

IF (CTCOL .6T. IpCOl) RETURI 
IF (lElO .GE. LIM8AM) RETURR 


RRtlT SVMIOLS USED FOR CREVMAF 


IRITE (A.MEAO) 

MRITE (A. ZOO) FLOE$C.ATFlLE.lSLTST<CTFtLE).MOLTST<CTFUE> 
CLSRUM <0 

DO 1100 1 « 1.I0SUI2 

IF (CLSIUM .CO. CLSSUl(t)) CO TO 10ZO 
CLSRUM * CLSRUM • 1 

HRITE (0.200) CLSIUM. CLSRAM(CLSRUM) . I. SUBRAM(l). 

• SVH(l.t). SVN(l.Z) 

GO TO 1100 

1020 HRITE (0.270) I. SUtlAMU). SVMU.U. SVR(I.Z) 

1100 CORTIRUE 

HRITE (O.SSO) 

HRITE (0.400) (i,SUllAM(l).STM(I.U.SVR(|.2)«|sROSU|S,OUFlO> 
IF lOESKET .CO*. 0) GO TO 1110 
00 1105 I s DESI01.0SSI02 
HRITE (0.100) 

HRITE (0.270) lrSUBIAM(t).STH(|.U.SVM(|.2) 

1105 COITIlUC 
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• rot.* FI2S0U/$KAAA.M2S0y.FUS0U 

UIIVAC not rORTRAt V EXEC U LEVEL 2SA >(EXECt UVEt EU010t1«A> 
TMIt CORRUATIOi UAS CORE OR 0« APR 74 AT 11i24tSS 


MtEAiSI 


tUlROUtiRE riZSOM ERTRt POIRT OOOOS4 


USEDt COOECn 000071; OATA<0> ROMIIi ILARR C0Rfl0R(2> OIMRR 


IXTERRAI REFERERCES (ILOCR. RARE) 

MRS RERR4t 
•014 REttSt 


trORASE AltICRRERT ULOCK. TYPE. RELATIVE tOCATIOR. RARE) 

RtOI 400007 10L 0000 000001 IRJft 0000 1 OOOOOt K 


00101 

1* 

OUOROUTtRE FI2S0R < IRRUR.OTRUR .R200R. ISRHR.L IRIT.t 

00101 

2* 

IRPLlCIT IHTE6CR (A-Z> 

00104 

9* 

REAL RTEST 

00109 

4* 

OOUOLE PREC19I0R R200R 

00100 

9* 

ItkUR s 0 

00107 

0« 

RTE9T X R200R • FLOATURRUH) 

00110 

7* 

10 K s OTHUR • ISRNR 

00111 

0* 

IF U .GE. LlRtT) RETURR 

00119 

0* 

IF <K .Cl. RTEtT> RETURR 0 

00119 

10* 

I9RUR s ISKMR * 1 

00110 

11* 

GO TO 10 

00117 

12* 

ERD 


ERO OF CORPIlATIORi 00 OUfiROSTICO. 

0I20OR IVRIOIIC to APR 70 1Yi24i94 0 0S0S40SO U 12 


CDEIETEO) 



ni24i)4 



0 >O0.« FI2T»/SKAAA.MZT».F|ZT^ 0ft A00 7ft 

U0IVAC 110ft 7OATftA0 V EXEC It LEVEL 2ftA -CEXECft LEVEL EUOIOftlftA) . 

TNlt CONOILATIOft HAS QOIE Oft Oft APR 74 AT 11 t 24 t 44 


tUftftOUTIftE PUTP CftTRT POUT 001 7S4 

EI2TMD CRTRT POUT 001740 

P12TL0 C0TRV POUT 002000 


STORAftE VSEOi CODEC 1» 002012i DATACO) 002144t 0LAIX CORNORCZl 000000 


EXTERRAL RETERERCES C0LOCR. RARE! 


0001 

COATE 

0004 

ROCODf 

0004 

0VTRAR 

0004 

RTRAR 

0007 

CNERR 

0010 

HlOlft 

0011 

RI02S 

0012 

RHOUl 

0011 

RERR2I 

0014 

RERRIft 


ftTORACf AftSICIHEHT CftlOCK. TYPE. RELATIVE LOCATIOR. RARE) 


0001 


001114 

110L 

0001 


001210 

120L 

0001 


001110 

110L 

0001 


001144 

1S4L 

0001 


001147 

liOL 

0001 


001414 

144L 

0001 


001417 

1401 

0001 


001441 

170L 

0001 


001447 

IftOL 

0001 


001424 

140L 

0001 


001411 

200L 

0001 


000011 

201G 

0001 


001414 

20U 

0001 


001441 

204L 

0001 


001444 

ZIOL 

0001 


000044 

214C 

0001 


000047 

222C 

0001 


000322 

SOL 

0001 


000741 

1746 

0001 


000344 40L 

0001 


001004 

404C 

0001 


001041 

4246 

0001 


000444 

44L 

0000 


001714 

400F 

0000 


001744 

410F 

0000 


002001 

4207 

0001 


001171 

4246 

0000 


002024 

410F 

0001 


001402 

4446 

0001 


000777 

70L 

0001 


001011 

74L 

0001 


001044 

ftOL 

0001 


001104 

OOL 

0000 


001734 

400F 

0000 

I 

001714 

ARC 

0000 

1 

002071 

ARCLRC 

0000 

1 

001711 

0E6O1T 

0000 


001710 

•E6SRP 

0000 

1 

001724 

ICtIT 

0000 

t 

001727 

OGStP 

0000 

1 

000030 

01T0EC 

0000 

t 

002074 

CORMRD 

0000 

t 

001442 

OECARR 

0000 

1 

002072 

DOl 

0000 

1 

001440 EOCOtC 

0000 

I 

001447 

FEAT 

0000 

1 

001700 

1 

0000 

I 

001472 

tA 

0000 

I 

001704 

lADR 

0000 

I 

001441 

U 

0000 

t 

001444 

URORE 

0000 

I 

000000 

lOTTES 

0000 

1 

001440 

1C 

0000 

1 

002044 

tCHAR 

0000 

1 

001474 

ICOURT 

0000 

T 

001701 

IDER 

0000 

1 


I0ER1 

0000 

I 

001444 

IE 

0000 

1 

001444 

IF 

0000 

1 


IFIlE 

0000 

t 

001711 

IHOLO 

0000 

1 

001712 

INOLE 

0000 

1 

001442 

II 

0000 

1 

001444 

U 

0000 

1 

001714 

ILER 

0000 

1 

001717 

IlERtH 

0000 

1 

001441 

IM 

0000 

I 

001470 

U 

0000 


002114 

IRJPt 

0000 

I 

001714 

UOS 

0000 

1 

001110 

IRAT 

0000 


001720 

IRERO 

0000 

1 

001474 

UTAT 

0000 

1 

001447 

lU 

0000 

1 

001471 

IV 

0000 

1 

001477 

I HD 

0000 

1 

001701 

IUD1 

0000 

1 

001702 

J 

0000 

1 

001721 

K 

0000 

1 

001714 

44 

0000 

1 

001474 

raurit 

0000 

I 

002040 

RUTS 

0000 

I 

001724 

RITTES 

0000 

1 

0ft1444 

1C 

0000 

1 

002102 

RCAR 

0000 

I 

001711 

■ CLR 

0000 

1 

002044 

RCPR 

0000 

1 

002047 

RCS 

0000 

1 

002100 

RDSPR 

0000 

1 

001704 

ROIVTE 

0000 

1 

001721 

ROCHAR 

0000 

1 

002074 

ROSAR 

0000 

1 

002047 

RPRC 

0000 

1 

001732 

•R 

0000 

1 

002070 

RRROS 

0000 

1 

002101 

RSAR 

0000 

1 

002041 

RVE 

0000 

t 

001707 

PACIIT 

0000 

1 

000040 

PACRAT 

0000 

1 

001704 

PAC44P 

0000 

1 

001722 

PRERIT 

0000 

1 

002044 

PROFLC 

0000 

1 

002044 

PR42 

0000 

I 

001711 

ROM 

0000 

1 

002071 

lARSTR 

0000 

1 

002041 

ivo 

0000 

1 

002044 

VAROL 

0000 

1 

001724 

HORD 
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1* 
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•0100 

2» 

C 
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!• 

€ 
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4* 
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€1 

•0100 

0* 

Cl 
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Cl 

••100 


Cl 

tAL FORMAT OR LARfVt II FORRAT. THERE ARE 

THO ERTRt pouts TO 
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THE SUMOUTiaC •• UMTHOR AID UHUH. 

HftTMOM UAITES THE HEADER RECBAD 1« 12 BIT IfTES FOR LARSVS It 
ARO • BIT •VTES FOR URtVERSAl. ONE CALL TO URTHOR RUST BE RACE 
FOR EACH tEEV OF TARE. THtS IIFORRATIOI 1$ RACKED. 

CALI MRTNORIlC. FEAT. BSAIIP. FORMAT. TRfORN) 

BC •- BO. OF CHARREL5 TO BE BRITTER FOR {ACM DATA SET 
FEAT ARRAY COITAIRtlG CHAIlELS TO, BE MRITTEI 

RSAHR •• BO. OF SAMPLES PER CNABBEL 
format -- 11 FOR UBIVERSAL 
TRFORH -- BO. OF TARE OUTPUT UBIT 
«Z FOR LARSVS It 

URTlIB BRITES the data IB g BIT BYTES ABO IS ALSO PACtEO. A 
CALL TO THIS ROUTIBE RUST BE MADE FOR- EACH OaTA SET TO BE BRIT- 
TEB 

CALL MRTLIBUOATA.LSTLIBI 

IDATA ARRAY COBTAIBIBC DATA TO BE HRITTEB 
LITLIB — s 0 FOR B-T DATA SETS 
FOR LAST data SET 

ICMAB -- ACTIVE CHABBELS HAVE CORRESROBDIBC BIT ROSITIOB 
TUBBED OB 


RROFLG -- 
BCS 

BBITS •• 

SVO 

BVE 

RRS2 

BCRR 

BRRC 

BRRDS -- 
ABCLBG — 

oot -- 
sanstr -- 
COMURO -- 
BOSRR — 
BCAR 

RACRAY -- DATA 
TARE 

1 COURT RUHR I 


BO. OF CHABBELS 
BO. OF BITS RER BYTE 

start of video data 

SAME AS RSARP 

RHYSICAL RECORD SIZE IB BYTES 
BO. CHABBELS PER RECORD 
BO. RHVICAL RECORDS PER CHABBEL 
BO; OF RECORDS PER DATA SET 
LEBGTH OF ABClLLARV BLOCK IB BYTES 
OATa order IRDICATOR 
SAMPLE START 

SIZE OF COMPUTER UORO IB BITS 

BO^ OF data sets per RECORD 

BO. OF CHABBELS OB ABClLLARV RECORD 

IS racked IBTO this array ABO THEB URITTEB OB 

BY CALLIBG BTRAB 

BG TOTAL OF BO. OF DATA SETS UBITTEB 


SUBROUT 1 BE FIZTR 
IMPLICIT IBTEGEM (A-Z) 


EBTRY POIBT FOR HEADER RECORD 


EBTRY FIZTHO <BSAMR. FORMAT. TRFORM.DDRMYV.SCDKET) 


DIMEBSIOI VARIL(ZA). IBYTESIZA), BITBEG<ZA). RACRAY<4I0>. 

• tCHAKZ). IRAY(Z00> 

DIMERSIOB EBCDtCCrO) 

DIREBSIOB OECARR<3) 

DATA ISYTES/IO.I. 1. Y, 1. Z. Z. 2. Z. Z. 1. 1. 1. Z. 1. Z. Z.« 

• 1.10Z4. 1.*. Z. 2/ 

DATA BITBEQ/ 1 . 1 .Z«.Z9 .ZS.Z1 ,Z1 .21 .21 .Z1 ,ZB.Z«.2«.Z1 .Z«.21 «ZT . 
•ZR. 1.29.1.21.21/ 

OATA IBMORE/OOIOIOAODOBOO/ 

DATA BC/W, FEAT/1/ 

DATA EBCDIC(1)/01*W« CBCOIC<2>/OU2/. EBCD1C<1)/0S*2/. 
t EBCOIC<4)/0lBA/» EBCOICM)/OUS/« EBC0IC<*>/03«*/. 

• EIC0ICCM/0S4T/. EBCD1C(S>/05TB/. E|CDlCi9)/0SZ1/« 




X 


H 


M1S9 

72t 


data IC/0S0S7* lA/0324/. I1/031W. I4/Q1Q4/ 

M14t 



DATA IF/0S04/. tl/0323/, Ifi/0309/. tU/QS«47, 11/0329/. 


74* 


• tV/0S49/«i;A/0301/ 

%%%U 

79» 


DATA |71lf/4/ 

««114 

74* 


lOyiVALCACf (VAK4U17>.I0SAR>. 

••H4 

77* 


1 CVAN41C2>.ICHAI). fVAfin(14>.4AS2). 

••H4 

7i« 


2 CVAi»L<9).7A0M.6>.(VAMlM1>,iCI>R>. {VAML< 14) . C04M40) 

••194 

74* 


3. <VARILC41.ICS>. iyA4ILf12>.lAAC}, 

••194 

•O* 


4 (VARIL(91,44|T9>t IVARIK IS) .IR70S1 « <VAR4i(2U.4094in. 

••194 

11* 


9 <VARBU41,tV0>. (VAA4l(14>,AICLIC>. 

••194 

I2> 


4 fVAML(19).fiOI>. fVARIlC2S>.iCA4>. 

••194 

• 3* 


7 IVA4aUli*IV|). (VAi|i(14).9AlltT4l.<VAR4U24>.l9Afl> 

••199 

14* 


•ATa VAML<n,yA44U7>.VA«4L<41.yAR«LC14>,VAtt4LC24>«yAR4lC22>/4*-4 

••199 



•4^ 

••U4 

•4* 


••149 



KAUIIT 3 TR70RR 

••144 



1 COURT sO 

••147 



•ARITR^I 

••174 

••• 


ISTAT <0 

••171 

fit 


■CS > RC 

••172 

fZt 


•yl B RIARR 

••17S 

fjt 


RSAH B RSARR 

••174 



ROSAN * RSARR 

••179 

49* 


Ullt « tfllE ♦ 1 

••174 



CALi COATS (OORflTn 

••177 

47t 


BtCODE <4.400,00RRyv> DECARR 

••249 



17 ffORRAT .EQ. U SO TO 4« 

•4249 


C 


•4209 


t 

RACRIRG HEADER RECORD IR LARtTt II TQRRAT 

••299 


c 


•4247 

1«2t 


|RAT<4> «0 

••214 

lest 


|RAV<9) <RC 

••211 

lOit 


IRAVCA) *R9ARR 

•4211 


c 


•4211 


c 

1RAV<91> THRU tRAV(RC*9> Hill 4E ftUSO H|TN ORES 

•4211 

107t 

c 


•4212 

lOlt 


lUD s 9«RC 

•4213 

104t 


DO 10 1*1. IHO 

•0214 

lUt 

14 

IRAT(90*I) s IBRORE 

••214 

lilt 

c 


••214 

112t 

c 

RILL RCtT or 200 H0R09 OR IRAT HITN 2ER0« 

•4214 

list 

c 


••22« 

114t 


IH01 t UD «> 91 

•4221 

119t 


0020 J«IR0I.144 

•4224 

114* 

24 

IRAKJtU s 0 

•4224 

117t 


lOER « 171 

•4227 

iUt 


RACIKR « lABSUI 

•42S9 

lift 


lAOR B 1 

•42S1 



ROITt *32 

•4232 

121t 


R04TTE « 200 

•4233 

122t 


RAC41T « 1 

•4234 



BE69RR « 4 

•4239 



•EGBIT « 9 

••234 

129* 


CAIL EVTRAR l|EGItT.IRAy(lADR).IECSKR.RO|YTE,RBlTS,RACBlT. 

•4234 

124* 


«RACRAy<|ADR).RACSKR) 

•4237 



RlO<0.2I.RACRAT(2)i » FlO(i.2A. IFILE> 

••244 

12lt 


IHOLE s DECARR<1)/10 

•4241 

124t 


IR CIHOLO .EO. 0> INOLD > 10 

•4243 

130t 


RlD<24.4.RACRAt(U)> « no<2l«I.E3COIC( lHOiD> > 

•4244 



INOLD * ROD<OECARR(1>,10> 

•4249 

132* 


IR (IHOIO .EO. 0> INOLD ■14 

•4247 

133* 


RtO l••••RACRAVC19>> « RIDC2I.4.EBCDICC|N0LE>> 
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M 





»II94 

Itll? 

IMi) 

l«2«4 

»024S 

»«2«y 

l•^7• 

10271 

»0272 

»0274 

»0274 

tilOl 

»0Si1 

»0S01 

tosoi 

lOIOS 

I0S04 

>•10) 

10500 

10507 

10510 

10512 

I0S1S 

10514 

10515 
10510 
10517 
10520 
>0521 
10522 
>0525 

10524 

10525 
>0520 
>0527 
>0550 
>0551 
>0552 
>0555 
>0554 
>0555 
>0550 
>0557 
>0540 
>0541 
>0542 
>0545 
>0544 
>0545 
>0540 
>0547 
>0550 
>0551 
>0552 
>0555 
>0554 
>0555 


t ) 


INOlO « OCCAifi(2)/10 

IP <IN010 .iO. 0) IHOLO >10 i 

OLD (O.O.OACOAV(15)> e fLOC20.0.EOCOICMMOLO>l 

INOLO t HOO(OCCAOO(2>. 10) • 

IP MNOlO .€0. 0) IHOLO E 10 

PIO (10.0.0ACIIAfl15>) * FL0C20.0*E0COlC<IMOl0>> 

IHOLO 3 OCCAAi(5)/10 
IP (IHOLO .CO. 0) IHOLO >10 

PLO (24.I.HAC0Arm>) > PL0(20.A.C0C0TC(|H0L0>I 
INOLO « NOO(DCCAAA(]).10) 

IP (IHOLO .CO. 0) INOLO « 10 

PLO (S2.4.»AC0Af(15>> « FLO(20.4.COCOIC(|MOLOn 
PLO (0.4.PACOAT(10>> > PLD(52.4.E0C01C(IN0L0)) 

CALL OTOAKKAUIIT.I.IDEN, PACOAV. ISTAT.22) 

50 IP (ISTAT .CO. 't> CO TO 50 
IP (tSTAT .CC. 0) OETURO 
IP (lOTAT .LT. -1) tti|TE(0.500) 

IP (IOTaT .LT^ >1) CALL CNEOO 

c 

c 0AUII6 NEADEI OECORO 10 UfliVEOfAL PORNAT 

C , i 

40 PLD(0,1,ICNAI(1)> « 1 

PLO( 4.0.PACRAT(|)> > PL0(20.0.I0> 

PLD(12«0.PACRAT<I)> • PL0(2i,0«II> 

PLD(20.i.PACRAT(|>) « rL0(20.t.l0) 

PlO(20.0.PACRAV(0>) * PLD(2S,0.I0) 

IP (tCDKET .CO. 0) GO TO 45 

PLO (4,|.PACRAT(1>) s PLO (20. i. IC> 

PL0(12.I.PACRAVUM > PLD (20. 0. IN) 

PLD(20.0.PACIIAV(|)) > PLO (20. 0. It) 

45 CORTIRUC 

PLD(0.I.PACRAV(1>) > PLO (20. i. IU> 

PLOd.O.PACRAVd)) > PLD (20. 0. IR) 

PLD(10.t.PACRAV<1))£FLD (20. 0. 11) 

PLD(24.0.PACOAV(1)) iPlD (20. i. IV) 

PLD(52.4.PACRAVd>> >PLD (20, 4. |A> ^ 

P10(0.4.PACRAT(2)> E PLD(S2.4.1A) 

PL0(4.0.0ACRAT<2>> > PLD<20.t.lC> 

PLOIO.O.PACRAKO)} > PLD(2I.0.IP> 

PLDU.O.PACRAVd)) B PLD(2l.0.i(> 

PL0(10.i,PACRAY(9>) B PLD(20.0,IL> 

PL0(24,a,PACRAT<9>) I PL0(20.I,;1E> 

PL0(52.4.PACRAV{9)) t PL0(2i.4.l0) 

PLO<0.4.PACRAT<10)) • PL0(S2.4.I0) 

PLD(4.0.PACRAY(10)) t PL0(2I .O.EOCOIC( IP ILC ) ) 

PLD(12.0,PACRAT<Hi>) « OCCARR(I) - 

PL0<20.0.PACRAT<14>> * DECARR(2) 

PL0(2I.I.PACRAT(14)) > OECARR(S) 

IPOi * 1 

5^ PlOdPOS.I.ICMARd)) B 1 
lOEN >410 
OPRC s 0 
PROPLC si 
RUTS * 0 
SVO s 1 
PRS2 > 5000 
ARCLRC s 70 
ARC s ARCLRC *2 
001 B 0 
CONHRO B 50 
ROlPR si 

RCPR >0 ] 

IP (RtARP .CT. 2000) RRITE(0.510) J 
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^ . .. . .............. - . . 


T 

i 


H 


1 


IM« 

I47* 



17 (ISAM .4T. 2118> MAO x 2148 

Ml«t 

m» 



IIC4 X (8C#ISAnP) • A4C 

•tui 

144* 



UE4TM X <feC#N9AO # AlC >7 1484 

••S*4 

240» 



IliNO 3 400(I4C#ISAO 4 AiC >. 34001 

••S49 

201 « 



17 ULMTM .EO. 0> OCaO 3 1C 

MS47 

202* 



17 <UEITH .EO. 8) OA70S i 1 

•tl7i 

20S* 



17 niElTN .EO. 8) 60 TO 80 

MS7S 

204t 



00 44 J«1»0C 

•tSF4 

209> 



|7((«SAO#J#AIC 1 .CT. 3000) 4CA4 ■ 2-1 

M400 

204* 


44 

|7U4SAN7#J#AIC ) w67. 3000) 60 TO 70 

••4«] 

207* 


74 

COITIOUE 

••444 

200t 



40CMA4 3 4C - ICAO 

•I44S 

204* 



00 79 J*1,00CHA0 

•f4it 

2104 



|7<MAM#2 .6T. 2111) IC70 m J-1 

••41t 

211 • 


79 

IF<ISAOO#J .6T. 2110) 60 TO 74 

M419 

2124 



iCOO 3 OOCNAI 

•t4U 

2134 


74 

COITIIUE 

••417 

214* 



4070S 3 OOCHAI / OCOO « 1 

••424 

219« 



17 (H0D<l0CHAI.0C7O) .IE. 4) OOOPf • IMOS • 1 

•4422 

214* 


44 

•ECSKO 3 IA|S(0) 

4442] 

217* 



lACSkO 3 lAiS(O) 

44424 

218* 



OOE41T 3 0 

4442) 

21f* 



00 100 Ksl.24 

•44J4 

2204 



17 IVAOOL(C) .EO. -11) GO TO 14 

•44S2 

2214 



CALL 4TTOA4(4IT|EC<K).VAOOL<K).4E6SKO.I4VTE9(k>,{ 

. 444S2 

2224 


• KUONDI.OACSKO) 

•44 SI 

2234 


44 

HOOO 3C(|4VT£SU) * MEOIT) # 44ITS) / 34 *1 

•4414 

224 4 



4AC4IT f N0D<(<l4VTE9(K)#ME4IT)#UtTt).34» * 1 

444SS 

2254 


144 

ME4IT 3 ME4IT • i4TT|S<K) 

•44S7 

224* 



CALL 4TOAi(KAUIlT,1.IOEO. OACOAVaiTAT,22> 

••444 

227* 


114 

17 (tSTAT .EO. -1) 60 TO 110 

•4442 

228* 



17 CI9TAT .GE. 0> 4ETUM 

•4444 

221# 



17 CISTAT .LT. -I) M0|TE(4.900> 

•4447 

250# 



17 IISTAT .LT. -1) CALL COEOO 

44447 

231# 

C 



44491 

232# 



E4T0V 7I2TL4 UOATA, LITLID 

44491 

231# 

c 



•449S 

234# 



DIMEMIOI IOATA(OSAflO*4C> 

•4494 

239# 



tCOUlT r ICOUIT #1 

•449S 

234# 



AIC 3 AICLI6 * 2 

•44)4 

237# 



17 C70IIAT .EO. 1) 60 TO 140 

•4494 

238# 




•4494 

231# 



HltlEO lACKEO DATA 00 TAIE II LAISV9 II 70IKAT 

•4494 

240# 




•4494 

241# 



4ACKIIG OIE SET 07 DATA IITO OIE 4ECOIO 

•4494 

242# 




••444 

243# 



■•ITS 3 1 

•4441 

244. 



AlCLIC 3 4 

•4442 

249# 



I4VTEI 3 ISAKP.IC 

4444S 

244# 



•CUT 3 14 - HITS # 1 

44444 

247# 



•CSKI 3 28 

4444) 

241- 



7LD<|A|t<0).14.IACIATC1)> 3 ICOUIT 

•4444 

241# 



7L0f 17.14. lAClAYCI)) 3 4 

44447 

250# 

124 

17 IISTAT .EO. -1) 60 TO 120 

•4471 

2514 



17 IISTAT .LT. >1) llltTE(4.520)lC0UIT 

•4479 

252# 



17 IISTAT .LT. -1) CALL CIEH 

•4477 

253# 



CALL •rTIAKICOtT.IDATAd.U.SGSKI.liYTES.IilTS.I 

•4477 

254# 


• 4 ) 

••944 

299# 



IDEM 3||ISAII«IC • AICLIG)#0)/I4 

•4)41 

294# 



I0EN13 lOOIIISAII.IC • AICII6)#0.34I 

••942 

297# 



17 IIDEN1 .IE. 0 ) lOEl 3 iOEl • 1 

••944 

2984 



CALL IT4AIIKAUI1T.1 . lOEI.lAClAV. ISTAT) 

44949 

29f4 



17 ILtTLlI) 130.139.139 
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y. 


1. 

tcc* 

ISC If fISTAT .CO. -1) GO TO ISO 

•t»12 

tci* 

If CISTAT .LT. -1) UCITE (C.StO) ICOUIT 


tct* 

If (tSTAT .IT. -1) CAU CHEOO 

•fStO 

tcs> 

CALL OTflAa<AAUCIt.C.2t) 


tC4« 

LSTLIC - 0 

costs 

tcs* 

1SS RiTUM 

oostt 

tcc« 

c 

oostt 

tCf* 

c ilRITC fACKEO DATA 00 TAfE IC UCIVCCSAL fORRAT 

oostt 

tcc* 

C 

costs 

tCf* 

140 DO ISO 1*1. U 

OCStA 

t7C* 

ISO RACRAV(I) = 0 

ocssc 

t7|t 

IGIIT > 34 > ICITS * 1 

C0SS1 

t7l* 

IDER « ceo 

CiSSt 

tts* 

RACOIT > 1 

ccsss 

t74* 

ROM * 1 

0CSS4 

t7S« 

•cskf * te 

ccsss 

t7c* 

■R * ORfOt • 1 

ccss* 

t77* 

If(OCPR.EQ.O) CO TO 1SS 

CCS4C 

t7C« 

CCIR s R00((RC-RCAR1.RCfR> 

CCS41 

t7C* 

1SS M0R0*17 

CCSfl 

tto* 

C 

CCS4I 

tci* 

C RACRIOC ARCILIARV IRFORRATIOM lOtO RACRAT 

CCS4I 

set* 

C 

CCS4t 

SCI* 

fLD(U0S<O).1C.RACRAV(1n > 1 

CCS4S 

tC4* 

fLOftO.U.RACRATMCI) * ICOURT 

•CS4S 

tes* 

C 

C0S4S 


C DATA If ROT RACKED MITH ARCILLARV RECORD 

CCS4S 

tC7* 

C 

CCS44 

tee* 

If (RCAR .RE. 0> CO TO 140 ' 

•CS40 

tec* 

KA * 1 

CCS4? 

tee* 

CO TO 110 

CCS47 

tci* 

c 

CCS47 

tet* 

C ALL Data is racked dr ARCILLARV RECORD 

COSSC 

ICI* 

ICC If tRCAR .RE. RC> CO TO 170 

ccsst 

tC4* 

RtVTES * IREHO - ARC 

ccsss 

tes* 

KA « t 

CCSS4 

tee* 

CO TO tio 

CCSS4 

tC7* 

C 

CCSS4 


c RART Of DATA It RACKED OR ARCILLARV RECORD 

CCSS4 

tee* 

C 

ccsss 

SCO* 

170 RCVTES > RCAR*RSANR 

COSSC 

SOI* 

KA » S 

CCSS7 

sot* 

GO TO tio 

CCSS7 

SOS* 

C 

CCSS7 

S04* 

C data It RACKED OR RORE TNAR ORE RECORD 

ccsst 

SOS* 

C 

ccscc 

IOC* 

Ito ARC « t 

ccscf 

S07t 

MORO * 1 

ccsct 

see* 

RACOIT *17 

ccscs 

see* 

KA : *4 

CCSC4 

SIC* 

Its DO ICO 1*1. OR 

ccsc; 

111* 

fLD<tA0S10).14.RACRAV<1)> * 1*1 

CCS7C 

lit* 

RCTTEt * RCRR • RSANR 

CCS7I 

US* 

If <aCLR .RE. 0 .ARO. 1 .ED. RR) RRVTEt * 

CCS7S 

S14* 

CO TO ilO 

C0S74 


ICO cortirue 

CCS7C 

Sic* 

too If (LSTLIR) t01.t0S.t0S 

COCCI 

117* 

tci IF IlSTAT .EO. -1> CO TO tOL 

ccccs 

m* 

IF UtTAT .LT. *1) MRITE (C.SSO ICOURT 

CCCC7 

SIC* 

CALL RTRAR UAURIT.C.tt) 

CCC1C 

sto* 

itUlR * 0 

CCCM 

Sti* 

tes RETURR 

cccit 

Sts* 

SIC IF UtTAT .EC. -1) CO TO SIC 


ORIGINAi; PAGE IS 
OF POOR quality; 
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m* If ItSTAT «IT. >1> UA|T(CA.SSO>ICOUIT 

UA* If (ISTAT .LT. -n CALL CHERR 

|S25« If (RCAR .RE. 0> CALL tYTRARCtCtlT. lOATACI .ROH>,ICSKf .RlVtCS.RtlTt 

•.fACIIT.fACRAT(yORO>.fACScf ) 

327« CALL •TRAR<RAURtT.1.IOEII« fACRAT. ISTAT. 22) 

S2I* If (RA .RE. 4) ROM « RCAR ♦ ROM 

S2f* If IRA .CO. 4) i|OII * ROM * HCRR 

)S0t GO TO niO.2O0.1IO.1R0).RA 

ni> 900 rORRAT W.Tl.’tptERROR*** SURROUTIRE f I2TP* . / .T20. 

9S2* • ‘AlORTEO lECAUSE OF RAO TARE OR MRORG ASG CARO.') 

S99* SIR FORMAT (7.T|.‘>t«ERR0R**t SURROUTIRE F|2Tf‘./.T20. 

il54* • 'USER RSARf IS TOO LARGE. THUS RSARf MAS RESET *. 

ais« • 'TO 2*fi.‘) 

SIR* S2R FORMAT C / .T«. * *ERROR*** SURROUTIRE FIZTR' . /.T20. 

SST* • RECORD ’.IS.' MAR REIRC HRITTER MMER PROGRAM ARORTED 

SSS* • OUE TO RAO tape.*) 

SSf* 9SR FORMAT (/.TR. ' •••ERROR*** SURROUtlRE FtZTP' . / .T20. 

940^ • 'DATA SET'.IS.' MAS REIRG HRITTER MkER PROGRAM ARORTEO 

S4I* • .'RUE TO RAD TAPE.') 

142* ERO 


IRO OF COMPUATIORt RO OlAGRORTICt. 

TP RTNROLIC RR APR TR 1ti24i9R R R1R94717 14 942 CDELETEO) 





• FOR,* FWTST/SRAAA.FtZtSr.FUTST 

HRIVAC ItOI FORTRAI V E)^EC II LfVEL Z5A ><EXCC« lEVEl EIZOIOOIOA) 
TMtf CORRIIATIOB MAS DOBE OB OA AFB 74 AT 11iZil9« 


it AFB 74 


nt«4l4B 


IUBROUTIBE FI2TST 


EBTRV FOIBT 000 U1 


tTORACE UtEDi CODEOI 000214} OATACO) 000114} BIABK C0BB0B(2> 000000 

IMTENBAL BEFEBCBCEi <BLOCK. BARE) 

OiOS BENR3I 


tTORACE ASStCBREBT <|10CR. TVFE. RELATIVE LOCATIOB. BARE* 


tool 00001) me 

Mil 000040 2120L 
0000 1 000000 AD^tAB 
0000 I 000110 FT 


0001 000074 1140 

0001 000041 2140L 

0000 I 000010 CTSAR 
0000 I 000104 iAVFT 


0001 000112 1710 
0001 000074 lOOOL 
0000 I 000107 1 


0001 000011 2000L 
0001 000104 4000L 
0000 000112 IBjFt 


0001 000014 21001 
0001 000117 4100L 
•000 I 000101 RAXCT 


•0101 

1* 


tUOROUTIBE FIZTST (TEST , CHARGE .CEBTER.ARRMOL. AOJSAI . 

••101 

2* 


• AOJlA2.AOJSAl.ADJSA4,AOJSAl,ADJSA4, 

••101 

1* 


• ADJtA7.ADJSAl.DFTFT> 

••101 

4* 


IRFltClT IBTECER (A-V) 

•0104 

1* 


•IHEBSIOB ADJSAR(I). CTSAR<41> 

•0101 

4* 


DATA CTSAR /41 • 0/ 

••107 

7* 


AOJSARCI) « A&JSA1 

•0110 

• • 


A0i$AR(2) 1 A0JSA2 

•0111 

f* 


AOJOAR(S) X AOJSAl 

••112 

10« 


A0JCAR(4) s A0JSA4 

••111 

111 


ADJSARCl) 3 A0J3A1 

••114 

12« 


A0JSAR(4) X ADJSA4 

•Bill 

111 


A04fAR(7) s ADJSA7 

•0114 

14t 


AOJSAR(O) s AOJSAI 

•0117 

111 


IF (TEST) 4000.1000^2000 

00122 

14* 

1000 

CDBTIBUE 

00121 

I7i 


ARRHOL s /:CBTER 

00124 

10* 


RETURB 

00121 

to* 

2000 

COBTIBUE 

•0124 

201 


RAXCT X 0 

•0127 

21i 


•AVFT « 0 

00110 

22< 


DO 2100 1x1.0 

00111 

2)1 


FT X AOJSAR(I) 

00114 

24t 


CtSAR(FT) = CTSAR(FT) ♦ 1 

•0111 

21i 


If (CTSAR(PT) - RAXCT) 2100.2100.2020 

•0140 

24* 

2020 

RAXCT X CTSAR(FT) 

•4141 

27i 


IAVFT X FT 

•0142 

21* 


IF (RAXCT .GE. TEST) CO TO 2140 

•0144 

201 

2100 

COBTIBUE 

•0144 

lOi 

2120 

ARRHOL X CEBTER 

00147 

111 


CO TO 1000 

•0110 

12* 

2140 

IF (SAVFT .CO. CEBTER) CO TO 2120 

00112 

111 


ARRHOL « SAVFT 

••111 

lAi 


charge « CHARGE * 1 

•0114 

111 

1000 

COBTIBUE 

•0111 

S4i 


DO 1020 I • 1,0 
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I 


I 




1 

17. 


AT * AOJSANU) 

fOUl 

34* 


CTSAA(AT) « 4 

•»H2 


3024 

C04TI4UE 

0144 

44* 


4ETUR4 

014) 

41* 

4044 

C0RTI4UE 

0144 

42* 


AAKCr >4 

0147 

4S« 


4AVAT 3 0 

0174 

44* 


00 4104 1 s 1.4 

4417) 

4)« 


AT 3 ADJSARd) 

44174 

44* 


IF <AT*OFTPt> 4010.4100.4414 

44177 

47* 

4414 

CTSAA(AT) s CTSAHIPT) ♦ 1 

44444 

44* 


If (CTSAI1<PT)-nAKCT> 4140.4100*4024 

4420) 

44* 

4424 

RAXCt 3 CTSANCATI 

44244 

)4» 


SAVPT 3 AT 

4424) 

)1* 


If (AAXCT .SC. lAiSfTCSTH SO TO 2140 

44247 

)2« 

4100 

C04TI4UE 

44211 

)3« 


SO TO 2120 

44212 

)4« 


CIO 


ci» or courtiATiovi le diaciostics. 

rilTST tVNIOtlC 


•$ AM H 11i2)t00 • fSMAITA U $4 (OfiITCO>’ 
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lliMi • 


I 

a MZURT/SRAAA.FIZyKT.f UUI^T 

UaiVAC not FORTRAI V EKEC 11 level 11A -(EXCCI level EUOIOOIOA) 
TnU CORRILATIOR mas dose or 01 APR n AT 11t2St00 


tUIROUTIRE FtZMRT ERTRV POtHT OORVSZ 


STORAGE USEDi CODEC 1) OOOlTRi DATA(0> OOAlOOi llARt CORRORCZ) OROOOO 


CORHOR RLOCRSi 


RRRS 

OltPL 

0R1S70 

RROA 

FIZ 

0004SA 


DRUM 

R0004A 

RRRA 

IRFIZ1 

oooon 

ROOT 

CORSAH 

01)100 

RR1R 

URTIFZ 

OOSZU 


IXTiRHAL REFERERCES CILOCK, RARE> 

•Oil fiztlr 
•G 1Z FI2I0R 
ORIS RWRITE 
•OU RUOUt 
ROD RI02S 
RRU RERRAt 
RRtT RERR3S 


RTORAGf AStlORHERT CRLOCK. TTPE. RELATIVE LOCATIOR. RARE) 


RROO 

0037*2 

100F 

0001 


0000** 

1200L 

0001 

000112 

12*01 

0001 


000117 

1S00L 

0001 

000140 

1330L 

RRR1 

R00S11 

1344L 

0001 


00031* 

13*11 

0001 

000431 

1)»1L 

0001 


000021 

UOG 

0001 

000013 

HOC 

Root 

000442 

1100L 

0001 


0004*3 

1*001 

0001 

000102 

r*7G 

0001 


0004*1 

WOOL 

0001 

000131 

2076 

R001 

000144 

21*C 

0001 


00022* 

230C 

0001 

0002*3 

241 G 

0001 


00030* 

241G 

0001 

000371 

27SG 

R001 

000470 

30001 

0001 


000430 

S02G 

00Q1 

0004*0 

321G 

0003 


001342 

ACROP 

0001 

000042 ALADD 

ROOS 

001S11 

ARALTS 

0005 


001343 

aother 

0004 

000371 

ASAR 

0004 


000374 

ASAR1 

0010 

003211 

ATFHE 

ROOS 

001S44 

atotal 

0000 

1 

0037*0 

RIT 

0003 

000170 

RRCORR 

0003 


000171 

RRFEAT 

0003 

0001*7 

IHFLG 

R007 1 

011114 

•OFPT 

0003 


001314 

CARS 

0003 

000000 

CATFLC 

0003 


000001 

catrar 

0003 

000572 

COATE 

ROOS 

00007* 

CLSRAR 

QOOS 


0004*0 

CLS8UR 

0004 I 

00020* 

CODE 

0000 

1 

003712 

COL 

0001 1 

oooOol 

COLADD 

R001 1 

000013 

COLIRC 

0000 

1 

003714 

COLSAR 

0004 

00031* 

CORERT 

0003 

R 

001071 

COR 

0003 

001341 

CROP 

ROOS 

0013** 

CRPKEV 

0010 

1 

000021 

CTFUE 

0004 

000400 

CTSE08 

0004 


000314 

DATE 

0004 

000370 

DEBUCF 

0003 

001 S3* 

DESKET 

0004 


000431 

DE1R01 

0004 

000432 

0ESR02 

0003 


001340 

oesoth 

0003 

001337 

OESURi 

RROA 

000311 

OFTCOD 

0004 

1 

000320 

OFTPT 

0004 

00031* 

OFTSTR 

0000 

1 

003713 

DRRtiR 

0001 I 

000031 

ORRMRT 

0000 1 

000000 

orstat 

000* 


000001 

DSPTOT 

000* 

000003 

OSPTTR 

Q004 


000433 

DUPRO 

0003 

0001*4 

EHPTRS 

ROOA 

000401 

EOFHIT 

0004 


000377 

E5AR 

0004 

00037* 

ESAR1 

0003 


001171 

FETVC2 

0003 

000575 

F1EL02 

RODS 

000*00 

FIELDS 

0003 


001334 

filter 

000* 

000000 

FIZRAR 

000* 


000004 

FLOESC 

0003 

001171 

FLOLET 

ROOS 

000174 

FL0SV2 

0003 


000177 

FL0SV3 

0001 

000032 

FOR 

0004 


000327 

HED1 

0004 

000341 

HED2 

ROOS 

001001 

Hi CM 

0007 

1 

011*34 

HOLARR 

0010 

003203 

HOLECH 

000) 

1 

000027 

HOI Li R 

0010 

000032 

HOLTST 

0001 1 

000030 

MOLURD 

OOOO 

I 

003744 

I 

0001 

000000 

IRADDR 

000* 


000010 

HIRED 

000* 

000011 

HIRIC 

0004 

000007 

HIRST 

0000 


00404* 

IRJPS 

000* 

00000* 

IRLIRE 

000* 


000001 

IRPTS 

0007 1 

001710 

IR 

000* 

00001) 

ISAREO 

000* 


000014 

ISARIC 

000* 

000012 

I8AHST 

0010 


00)173 

lUDCH 

0010 

000022 

ISLTST 

RROO 1 

003717 

J 

0007 


01115* 

JSTAT 

0000 1 

0037*1 

R 

0003 


001237 

aatro 

0000 1 

00374* 

i 

0004 I 

000371 

LIRHIT 

0004 

I 

000321 

LIHLIR 

0004 1 

00032* 

URSAR 

0000 

i 

003741 

LIRIRC 

0004 I 

000373 

LRPSAH 

RROO .t 

0037S7 

lstlir 

0010 

I 

000000 

HAP 

0003 

001331 

RAPFRT 

0003 


0013*7 

RFHE 

0003 

001333 

ROC AT 

Root 

00123* 

R0CLS2 

0001 

1 

000021 

ROCOL 

0001 1 

00002* 

HOCOVR 

0003 


001174 

R0FET2 

0003 1 

001172 

R0F102 

ROOS 1 

001173 

R0FLD3 

0003 


000114 

RDRAP 

0003 

001233 

R0SUI2 

0003 


00011* 

ROSUIS 

0003 

001234 

ROTRFD 

RROO 1 

003710 

OEOLIR 

0000 

1 

003743 

OEDSAR 

0000 1 

003747 

OSTUR 

0000 

t 

003742 

0ST1AR 

0010 1 

000010 

OTFHE 

0004 1 

000353 

oniRE 

0004 


OOOSU 

OTURT 

0000 t 

000012 

OUTCOD 

0000 

1 

R017*2 

OUTSTR 

0003 

000117 

PCFOKV 

RRRS 

000*02 

PCTIDS 

RR10 

1 

000043 

PERCRT 

0003 

0001** 

pltket 

0004 

1 

ROOS72 

prosar 

0000 t 

003741 

PT 




OOOOAS realir 

0000 1 

00S740 

SARIRC 

0007 

1 

000000 

sarsom; 

0000 

1 

00S751 

sarstr 

0004 

000402 

SEORAR 

•OOS 

OOD4S SITE 

OOOA 

000S1S 

SKPLIR 

0004 


000S14 

StPSAR: 

OOOS 


000545 

stauv 

OOOS 

OOOS44 

SUICAT 

•001 

00017S SUORAR 

OOOS 

000270 

SUIRO 

0004 

I 

000000 

StR 

OOOS 


000477 

SVRRTX 

0005 

000044 

SVRPAC 

•004 

000S11 TAPOUT 

0010 

•01Z14 

THOLCM 

OOOS 

R 

00040S 

ThRES 

OOOS 


000542 

TMRSCV 

OOOS 

000545 

TMRSVA 

•010 

000020 tirfil 

OOOS 

000045 

TIRREA 

0010 


00S21S 

TISLCH 

0010 

1 

000042 

TOTPCT 

OOOS 

1 001255 

T0TVT2 

•OOS 

1 000SS5 TOTVTS 

OOOS 

0005A1 

TRRKCV 

0004 

1 

000427 

TRRRO 

OOOS 

1 

000540 

TSTtEV 

0004 

1 0004S0 

TSTRO 

0007 

01SS5S URTFAS 

OOOS 

000576 

VERTX2 

OOOS 


000401 

VERTXS 

0000 

1 

008755 

UORO 

0000 

1 00S754 

MRSAR 

•010 

0 00107S 2CR1 

OOOA D 

000S21 

20RLIR 

0004 

0 

OOOS2S 

ZORSAR 

0010 

0 

•Oil IS 

ZPC 





00101 

1« 

•0101 

2> 

•OIOS 

S* 

00104 

4t 

00105 

4« 

•0105 

4t 

00105 

4* 

00105 

4« 

•0105 


00105 

4« 

•0105 

4i 

00105 

4t 

00105 

4* 

•OIOS 

4* 

•0105 

4> 

• 0105 

4* 

•0104 

4* 

•0107 


•0110 

5« 

00111 

5« 

com 

5t 

00111 

5« 

00111 

5* 

•0112 

5« 

•Oils 

5* 

00114 

5« 

00114 

5* 

00114 

5* 

•0114 

U 

•0114 

5* 

00115 

5* 

00115 

5« 

00115 

5» 

00115 

5t 

00115 

5* 

00115 

5* 

00114 

5* 

00114 

5* 

•0114 

5* 

• 0117 

5* 

00117 

5t 

00120 

5« 

00120 

5« 

00121 

5* 

00121 

5« 

•0121 

5« 

00121 

5<i 

•0121 

5« 

•0121 

5» 

00122 

5* 

•012S 

4* 


c 

c 

c 


c 

c 

c 


tUIROUTIlE riZMRTfIZ. LIHSOH. I . TMSAV. TRIflO, TRRVER, 

• TSTSAtf. TSTFIO. TITVER. DRUARII. Ill 
INRLICIt IITEGEII (A - VI 

IRCLUOE ClIRKtO.LIST 

COnflOR/DISRL/CAmG.CATIAtl(*1 l.CLSIAN<41>.SUMAR<41).SUIR0(*0>. 

• SUtCAT(A0),CLSSUI(60>.a0RAP.T0TVTS.I0SUn. 

• »CFDKV.TSTKEV.TltaREV,TMRSKV,STATKV.EflRTIIS.TMIISVA. 

• PlTKET.IflfLC.lMCONI.SNFEAT.CDATECZ). 

• Fl0SV2.FIEL02.VERTX2.FLDSV3if 1EL0S.VERTX3.RCTI0S. 

• TMREtCAei.SVRHTX(«4).HlCM(«0>.C0a(401 

• .nOKEV^R0FLO2.aOFL03.a0FET2.FETVC2(30> 

• .iO$UI2.IOTRFD.TOTVT2.«OCLS2 

• .KATRO(40I.ROCAT, FILTER. flAPFRT 

• .OESKEV.OEtUai.OESOTN.CROR , ACROR.AOTMER. ATQTAL 

• .tITE<4).ARALVS<SI.CAfl|<10>.CRRREV 

• •■FILE fILZOR 

E«D 

tlCLUDE FIZCOR. LIST 
IMLICIT OOUiLE RRECISIOH CZl 
REAL COR.TNRES 

FARARETCRt 

RARARETER RAGCOL « 10. RACSVfl s 110, RARSAN « 1000. RARLIR « 1000 
RARANETER RAGURD s 19. PSCLAO * *1. ISUICL RSCLAD < 1 
RARARCTER RSEOS « 21. POUTLI * RSCLAO*A. P$TR * ZtROUTLR. 

• RSARRSz RARSAR « S, PARFIL * 0 

CORROI RLOCKS 

CORROR tnZt STR<P0UTLR.2>. ^ODECPOUTLR>, TAPOUT, OTURT, SKPLIR. 

• OKPSAR. DFTCOO. 0FTSVR(2>, OFTPT. ZORLIR. ZORSAR. 

t tlRlIR . LIRSAR, HEDinO), HE02<10). OTLlPE. OATECZl. 

• CORERTdOl.DEOUGF.llRHIT.PROSAR.LRPSAR, 

• ASANI, ASAR. ESARt. ESAH. CTSEPS. EOFNIT, 

t SEOIAR<RSE0S).TRRRO.TST9O.0ESa01,0^SR02.0UPti0 

CORROR /ORUR/ IIAODR, COLAOD(PAGCOL ) . COLtRCIPAGCOL). ROCOl. 

• lOCOyR, HOLLIR. HOLURD. DPnyRT, 

• FORU). ALADD, REALIR, 5VHPAC. TIRREA 

CORROR /IRFIZW FIZRAR. DSPV0T(2>, OSPVTR. FLDESC. IRRTt, IRLIRE. 

• ILIRST. ILIRED. ILIRIC. ISAHST, ISAREO, liSARtC 
CORROR /CORSAR/ SARSOUiPARSARl. 1R<PSARPS.41,H0LARR(PARSAR,Z), 

• iUFPT, URTFAS. JSTATCZl 
CORROR/URTIFZ/ RAP(PARFIL>. OTF I LE (PARF I L 1 . TIRFlL. 

• CTFILE. ISLTST(PARF|L>. H0LT$T<PARF U > . TOTPCT. 

• PERCRT(P0UTLR.PARF|L>.2CRt<PARFlLl, 

• ZPC<POUTLR.PARFtLl. I SLOCH( PARF IL 1 . 

• MOLCCHfPARFlLl. TlSlCN. TMOICN 

• .ATFILE 
MO 

OIRERSIOR ORSTATIPAGCOL) 
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I. 


#0123 

■ « 


•0131 

0 « 


•oisi 

10 * 


••111 

11 * 


•out 

12 * 


•0134 

13 * 

100 

•0134 

14 * 


00134 

13 « 


00134 

14 * 


•0134 

17 * 


00134 

11 * 


•0133 

lOt 


00134 

20 * 


00137 

21 * 


00142 

22% 


00144 

2S» 


•0143 

24 % 


00144 

23 % 


00147 

24 % 


•0132 

27 % 


•0133 

24% 


00134 

20 « 


•0133 

30 % 


00134 

31 % 

1100 

•0140 

32 % 

1200 

00142 

33 % 


•0143 

34 % 


00143 

35 % 


00103 

34 % 

C 

•0143 

37 % 

c**%* 

00143 

30 % 

c 

40143 

30 % 

C**%*i 

40143 

40 % 

c 

00144 

41 % 


•0144 

42 % 


•0171 

43 % 


•0172 

44 % 


•0173 

43 % 

1240 

00174 


1240 

00177 

47 % 

1200 

•0201 

4 I % 

1300 

00202 



00204 

30 * 


•0204 

31 % 


00211 

32 % 


•0212 

33 * 

1320 

00212 

34 * 

C 

00212 

33 % 

c* *••< 

•0212 

34 % 

c 

•0212 

37 % 

c**%%< 

•0212 

30 * 

c 

00214 

30 % 

1330 

•0213 



•0220 

41 * 


•0220 

42 * 


•0221 

43 % 


•0221 

44* 

1 

•0223 

43 % 


•0224 

44 % 


•0223 

47 * 


00224 

40 * 


•4227 

40 % 



PlMfeiSiOa 0UTC00<^AKSAK>. OUTSVA(rSAN^«> 

DATA LSTLII/0/. SAHUC/W. LlllRC/W 

OlHCiStOH TRkSAVU.k0FL02>, TRIFLD( ) . lOFLOZ I , TRSVCRf Z . TOTVTZ ) . 

• TtT«AV<4.l0FL03). TSTFLOn.lOFlOS) . TSTVERCZ.TQTVTS). 

• 0RUAM(«0C0UR»2.N0UII,I0C0L> 

DATA OUTSVN/RIAItR)«ROUUl/ 

FORNAT (/.U. '•••ERRORo* MlZOR. RUIROUTIRE FIZMRT’.TZO, 
t no. ' IS AR ILLEGAL *. 

• 'ADDRESS FOR COLURH RR IITOUT ' . U . ' . ‘ / ,T20, 

t ‘THE STARTIRG DRUM ADDRESS FOR THE COLURR EQUALS'. 110. 

• *.*•/. T20. 'ERROR OCCURRED MHILE TRTIR6 TO WRITE THE 

• IS.* RECORD OR THE ORUR FOR THIS COlURI RRIRTOUT.'I 
DOTS AN « • 

OEDSAN s 0 

DO 1200 I « 1.RR0SAN 

IF TSANSOUCI) .LT. 1> CO TO 1200 

osTSAN « oeo:ar * 1 

OEDSAN « OEDSAN • SANSOU(l> 

NT s NOLARRCl.lUFRT) 

DO 1110 L s OSTSAH. OEDSAN 

OUTCODU) * CODEIRT) I 

OUTSVH(L> * RT 

RERCRTCRT.CTFILE) « RERCRTCRT.CTFILE) • lIRSOll 
TOTRCT = TOTRCT • LIRSOK 
CORTIRUE 


OSTLIR 

OEOLIH 


OTLIRE 

OTLIRE 


• 1 

* LlflSOH 


00>L00R TO WRITE DATA OUT OR TARE 


IF (0TF|LE(CTFUE> .EO. t> GO TO 1300 
DO 1200 I t 1. LIRSOll 
OTLIRE s OTLIRE • 1 
IF ILINLIR - OTLIRE! 1240.1240.1200 
LSTLIR » -1 

CALL FI2TLR <0UTC00.1STLIR> 


IF (NARCCTFILEI .EO. 0> go to 1700 
IF (LUSOU .IT. 2> CO TO 1330 
00 1320 I « 1.LNRSAN 
iRit.m * ouTSTNcn 


D0*L00R TO WRITE DATA OR DRUN FOR GRETNAR 


DO 1000 I X OSTLIR. OEOLIR 

CALL FIZ3DR (TRRRO. I. OUTSTN. ROFLDZ. TRRFLO^ TRRSAV. 

TROVER. DFTRT. SARSTR, LIHSAN. SAHlRC. LlRlRC! 

IF (TSTKEV .EO. 1) CALL FUROR (TSTRO. I. OUTSTN. R0FLD3. 
TSTFLD. TSTSAv/ TSTVER. DFTRT. SARSTR. LINSAN. SANlRC. IIRIRO 
OSTSAN X 0 
OEDSAN * 0 
COL • 0 
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IHOROI « riRHT SOURCE HORD ADDRESS 
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1 

000051 

NR 

0000 

1 

•00012 

• 

0000 

1 

000035 

■ 1 

•000 

t OOOOI) 

• J 

0000 

1 

000057 

■0 

•000 

1 

000015 

■ RTSE 

••00 

t 

•00052 

•RTfT 

• 000 

1 

000054 

0R1 

•000 

1 ooooso 

RTERR 

0000 

R 

000025 

RL 

•000 

R 

000050 

RXX 

••00 

R 

•00024 

RX1 

•ooo 

R 

00002) 

RX2 

•ooo 

R •000Z4 

RT1 

0000 

R 

000027 

RT2 

•000 

1 

00000) 

XRR1 

•OOO 

R 

000020 

XRR1 

•ooo 

1 

000007 

XIR2 

•000 

1 000044 

XX 

•00« 

1 

•00000 

11 

• 000 

I 

000001 

X2 

•004 

1 

•••••4 

TORI 

•••• 

• 

••0021 

TRR1 

•••• 

1 •00010 

TIR2 

• 040 

1 

•00002 

T1 

•000 

1 

•00005 

T2 










••101 

1« 


fUOROUTIRE EOUHT<MElD.i7T),FL.UIOE.R$ARP. JJ1 

••1»1 

2* 

Cl 



•S1«1 

5» 


TNIt SUtROUTIlE HILL RETURR THE RtXEL RURRER) OF THOSE 

••101 

4« 

Cl 

RIXELS 

OR A A GIVER LIRE THAT ARE CORTAIREO MlTHlR THE 

••1*1 

)• 

ct 

•OURDARIES OF A ROIE-RECTARCULAR FIELD 

M1«1 

4* 

Cl 



••1«1 

?• 

Cl 



•R1R1 

• • 

Cl 

IRRUT 

FIELD - ROlE>RECTARGULAR FIELD TAILE 

•0101 

• • 

Cl 


ALL the VERTICES RUST IE IR CLOCCtfISE 

••1RT 

10« 

ct 


ORbER AID THE LAST VERTEX HAS TO IE EQUAL 

•01«1 

11> 

Cl 


TO THE FIRST VERTEX FOR FIELD CLOSURE 

•Riot 

12< 

ct 


The first vertex rust have ririrur 

••101 

15> 

Cl 


RIXEL value 

••101 

14> 

Cl 


RRTS o NO OF ROIRTS OF THE R-R FIELD 

••101 

))• 

Cl 


TLIRE - ICAR LIRE RURRER 

••101 

14* 

Cl 



••101 

17. 

Cl 

OUTRUT 

FL - ARRAY COITAIRIRG THE ORDERED RlXEL IRT£RCERT| 

••101 

Hr 

cr 


RSARR - RO OF SARRLES CORTAIREO IR THE FIELD OF 

••101 

10* 

Cl 


A GIVER SCAR LIRE 

••1R1 

20r 

Cl 


jj - The lercth of the arrat fl 

••101 

21< 

Cl 



••105 

22t 


rarareter raxi.o 

• •104 

25r 


OtRERflOR FIEL0(2iRRT)>.FL(RAXl> 

••1«) 

24. 


INTEGER 

XI. X2.T1 «T2. XX, FL, FIELD. TLIRE 

••104 

2). 


integer 

XRRI.VRR1.XflR2.VRR2 

••147 

24. 


IFfRRTS 

.EO.21G0 TO 5) 

••107 

27. 

c* 

ORE VERTEX FIELD 

••111 

2i> 


L« TLIRE 
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00 7 • « 1.RAXI 
7 7L(i> s t 

MTIE = I7TS-1 

1 i 1 
Ji * S 

to xi^riELOd.n 
V1:MEL0(2.I» 

4 X I*v. I 

X2x7ICL0(1.J> 

V7x7IEL0(2.J) 

17 C I .SO. 1 > GO TO 200 

101 X 1-1 

XIRIxMElOn.lRI) 

V0mxflELD(2.1l|1> 

€0 TO 900 

200 XRIIIxf |CL0<1,I7TSE) 
f«H1xFtCL0a.l7TSE) 
m 171 t 1*1 

X071xnflD<1^t71) 

V07|3FtELD<2.l71) 

17 < I .CO. I7TIE) CO TO 
172 X l*2 
X|72xF|C(.0<1,l72) 

TI72XF1CLDC2.I72) 

CO TO )00 

400 X|72xFtEL0(1.2> 

T072xflCl0<2.2> 

SOO 17 ( ri .EQ. 72 i GO TO 1000 . 

l7((L.CO.V2}.AXp.(T2.E0.r072)> CO TO 2000 

i7<(t.co.yn.AOD.(vi.Ea.Tom)) go to 2000 

• l X t 
0X1 X HI 
0X2 X X2 
•f1 X T1 

072 X Y2 

OXX xU<0t-«71)i<«X2-0Xin/l«72-R71>)*0X1 
XX X «XX».9 

|7<Y1.LT.Y2> CO TO 910 
XXxOXX 

I7{f«XX-XX>.CT..9> XX*XX*1 
Sit COOTIIUC 

IF (;«X.GE. XII .AlO. CXX .LE. X2l > CO TO 000 
17 UXX.LE. X1> .AMD. (XX .GE. XZ > > CO TO 000 
2000 I X |»1 

IF ( t .CT. H7T9C > GO TO 9 
CO TO 100 

400 t7(L.iE.T1.AI|P.L.6E.Y2) CO TO 700 

|7(L.LE.72.AI0.L.CE>71> CO TO 700 
CO TO 2000 
700 JJ X JJO 
FL(JJ> * XX 

IF ( JJ .CO. 1 I CO TO 2000 

17 ( I .IE. I7TSE > CO TO 9000 

|7<l.«E.72> GO TO 9000 

XIRIxXI 

YIRIxTI 

X1SX2 

T1XY2 

XZxFtEL0(1»2> 

T2xFIU0(2,2) 

CO to 9001 

9000 17 ( t .IE. 71 ) CO TO 2000 
9001 17 ((7I.IT. TOim .AID. (71 .CT. 72 >> CO TO 4000 
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••2 17 
•«24t 
••241 
••242 
••241 
••241 
••247 
••211 
•021 S 
••214 
••211 
••214 

• 0217 
••241 
••241 
•0242 
•0241 
•0244 
••244 
••247 
••274 
•0271 
••271 
•0271 

• 0274 
•0277 
•0101 
•0102 
••104 
••101 
••104 
•0107 
••Sit 
••S11 
••112 
••SIS 
•0114 
•0S11 
••114 
•012 1 
00122 
••121 
•OS so 
•0111 
•0132 
••111 
•0SS4 
••1S7 
•0142 
••141 
•0144 
•0144 
•0147 
•0111 
•0112 
00111 
•0114 
••111 
••114 


•2* 
• !• 
•4« 
•It 
•4* 
•7* 
•I* 
••« 
UO* 
1t1« 
102* 
101« 
1»4« 
lOlt 
104* 
107« 
10|t 
lift 
110« 
lilt 
112 * 
lilt 
114t 
111* 
114« 
117t 

m* 

ii*t 

120 « 

121t 

122 - 

121» 

124« 

121« 

124* 

127* 

12«t 

12*t 

ISO* 

111 - 

112- 

111 * 

114- 

111 - 

114- 

117- 

m- 

110 - 

140- 

141- 
142* 
141- 
144- ^ 
141- 
144* 
147- 
lit* 
14f- 

no- 

111- 


If (Ui .CT. vani) .AiO. m .it. t2>> so to 40oo 

60 TO 2000 

4tOt fLCJJ) S 0 
ij » iJ-1 
CO TO 2400 

Itto tm.U.vn GO TO 2000 
tf(Xl.CT.X2> GO TO 1000 
lfCfON 1 .lT.Vn 60 TO 4000 
If C Vlf2 .GT. V2 > 60 TO root 
JJ X JJ*1 
fLCJJ> s XI ^ 

60 TO 2»»0 

7O0« JJ s JJ»1 

fLCJJ> * XI 
NN * JJ*1 
fLCNN) « X2 
JJ * NN 
60 TO 2000 

4000 If < V«f2 .LT. V2 ) 60 TO 2000 
JJ s JJ*1 
fL<Jj> * X2 
60 TO 2000 

1000 if < TflNI .LT. T1 > 60 TO fOOt 
If < Vlf2 .GT. V2 > 60 TO 2000 
JJ s JJ*1 
fHJJ> = X2 

tfC«PTSE.C0.2>fL( JJ>iX1 
60 TO 2000 

•004 If ( V«f2 .6T. V2 ) 60 TO lOOO 
JJ * JJ*1 
fLCJJ) » XI 
NN M JJ*1 
nCHN> E X2 
JJ * NN 
60 TO 2000 

•000 JJ * JJ»1 

fLCJJ) s XI 
60 TO 2000 
1 iPTSI * jJ-1 

DO 24 •! < I.NfTSI 
Nf1 • 41*1 
00 20 tJ X •ft.JJ 
If c ficai) - fLiaj) > 2f«2f«20 
20 NT€Nf s ficai) 

FLCII) < FL(BJ) 
fLCaj) « aTENf 
24 CONTINUE 
■lANf X 0 
00 SO I « 1/JJ.Z 
•• • ■*i 

■lANP X aSANP*<FLCIN> *Fl(N)*1) 

SO CONTINUE 
NETUNN 

11 |f(VLiaE.NE.FIELD(2.1))NETUaN 
flCDsFIELDd.n 
fLC2)-riEU)(t,n 

NlANPxl 

JJ*2 

NETUNN 

END 
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• Wi* HRTrip.UKmD.MIITFLD 

yitVAC not fOATRAII V EX€C It LCVEl ZU *(EX£CI LEVEL EtEE1»01«A> 
TNI I CONNILATIOA MAS OOME 0« OA APA 7* AT Mt25i5S 


tUIROUTIIE HATELD EATAT POUT OAOSSO 


STORAfiE USEDi CODEM) ROASEZi 0ATA<0) OOOEOOt ILARK CONNORUt •••••» 
CONNOR ILOCKSt 
•OOS OLORAL 00007A 

KITERRAL REEEAERCES CRLOCK. RARE) 


•••A 

RMDUt 

••OS 

RIQZS 

••OR 

■toil 

•0*7 

REAAJS 


OTORaCI ASSIGMNERT (OLOCR. TVAE. RELATIVE LOCATIOR« RARE) 


•••• 


•0001S 

100F 

•001 

000072 

1S3G 

0001 

ooous 

1S46 

•••• 

•00021 

200E 

•001 


•00227 

201G 

•••1 


•00200 

220& 

•001 

00031S 

2SSG 

0000 

000027 

2S0E 

•000 

•oooso 

SOOE 

OOOO 


000040 

400E 

•••t 


000170 

SI 

0000 

000100 

SOOf 

0001 

000200 

OL 


•0011S 

OSOF 

• 001 


00012S 

7L 

•OAO 


•0012S 

700F 

oooo 

ooeiss 

70SE 

0000 

ooouo 

710E 


ooooss 

•NFtLE 

OOOS 


000050 

•NKET 

••OS 


OOOOSS 

OATAPE 

0003 

000071 

DATML 

ooos 

000007 

OANHOS 

ooos 

000000 

ORUNAD 

ooos 


000002 

EAIPTP 

••OS 


•OOOOS 

EAPRET 

ooos 

00007S 

Et2ML 

ooos 

000074 

M2RET 

OOAS 

•0007S 

EI2URT 

OOOO 

I 

000011 

ELORAN 

•••S 

1 

•00000 

MEAD 

ooos 

OOOOS 7 

NISPIL 

ooos 

000000 

HtSKEV 

•••• 

I 000002 

1 

• 000 

1 

000001 

10 

•••• 

1 

•00007 

1C 

0000 1 

1 000000 

IE 

0000 

OOOUO 

IRJPt 

oooo 

I 000010 

It 

OOOO 

1 

000012 

J 

•000 

1 

000000 

LPRR 

ooos 

0000S2 

NAPTAA 


•00004 

NAPORT 

••os 

•OOOOS 

ROE HE 

oooo 

1 

000004 

RO 

•000 

* 

•OOOOS 

OR 

•00» 1 

1 ooooos 

RV 

•OOS 

000070 

•A6SI2 

•••s 

••••S4 

SAVTAA 

•••s 


•00072 

STAEIl 


•OOS •OOOA1 TRfORN 


••101 

!• 


tUIROUTIRE UATELDIELDSAV. VERTEX, ROELD, REV, CLtRAN.SU»RAN> 

•OIOS 

2* 


OINERSIOR CLSRAN(1>.8UINANn> 

•0104 

S« 


INPLICIT tRTEGEA<A-2> 

•0104 

4* 

c* 


•0104 

s« 

c* 

THIS SUOAOUTIRE PR I RTS SAVED TRAIN IRG OR TEST EIELOS 

•0104 

• • 

c* 


•OIOS 

7« 


OINERSIOR FLOSAV(4.ROELO},VEATEX<2,1) 

•0100 

S* 


OATA LPAI/'C'/ 

••110 

*• 


IRCMiDE COAIRO.LIST 

•0111 

• • 


CONNOR/CLOIAL/HEAO( 42 ),NAPTAP, OATAPE. SAVTAP,tNE|LE,tNRET. 

•0111 

• • 


• HtSEtL.HISREV.TAEOAN, EAIPTP, EAPREV.NAPURT.ROEILE. 

•till 

• • 


• DAUNA0.0ANM0S.PAGSI2.OATEIL.STAEIL 

••ill 

• • 


• .E1ZURT.EI2REV.EI2EII 

••112 

• • 


END 

••ils 

10* 


li*! 

••iu 

11* 


MRITE(O.NEAO) 

••no 

IS- 


|ECKET.EQ.1>MA1TE(0.100> 

••121 

IS* 


IPfkEV.C0.2}MAlTE(0,2C01 

••124 

14* 


Iff REVERE. SIMA tTECO.SOO) 

••127 

IS* 


|E<REV.E0.S)MAITE(O.2S0> 

••1S2 

10* 


DO IS I«1.R0E10 

••1SS 

17* 


•VsOlDSAV(4.|> 


fliSSiSS 
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If (M.CT.5)I0 k) 

IC*ftDSAV(?.l> 

ltsfLP$AV(S.I) 

flOIAfUFLOSAV(l.l) 

|fCKEV.aE.5>GO TO S 

NNITS<*,700) I .FlOIAN.tLfRH.VEtlEXO, J>.VERTEX(Z,J>, 4*11,11 > 
|f<lt.EO.1>yiMTE<A,70)> 

If (tt.E0.2>yRtTEf*.M0> 

•0 TO * 
y COITIHUE . 

|fU|.EO.»>yiUTE(A.400)t.fLDRAIt.lC.CLt«AN<IC>. 

• afRk,VERTEX(f .4).VERTEX(2, J». J*tlME> 
|f(II.IE.«)yRlTE(A.TOO)t.FLDXAH.IC.CLSlAX(IC>,lt.tUiyAtl(IS>. 

« aM«.VERTEX(1.J).VENTCX<2.J>.iall.U) 

« COOT HUE 

If C«R.IE.O)CO TO 2 
JI*1E«1 
IC*II*RR-1 

NII|TEU.*TOMLPIIX,VERTEX<1,4>.VEIITEX(2,J>,Js||.U> 

7 COOTIVUE 
II*1E*2 
10 CONTiaUE 
OETuna 

iOO fORRATC/// 49X.VSAVE0 TRAIOIRG FIELDS /> 

200 FORRAT</// A6X.MRPUT TEST FIELDS*/) 

2S0 fQRRAT(///4SX. OESIGIATED F lELDS* / / /Til. * f |ELO* .T40. * DESIGOATEO’ • 

• TIO, VERTICES <SAHPLE.LIOE) ' /) 

300 f bRRAT< IX, Til. F tELD*.T34.' CLASS *,T47.‘SUICLASSV.TI0.‘VERTUEt (S 
■ANPLE.LIOE)*/) 

400 FORRAT(T1S.I3,T20,A4.T30,I3.T3S,A*,T4S,S<A1,I4.*.'.14,‘>*,1X>> 

500 f0RRAT(T1S.l3.T2e.A«.T10.I3.TSS.A«.T45,l3.T50,A0,T«5. 

• 5<A1,I4.'.%I4,*)',1X)> 

*50 fORRAT(1X.T«5,5(A1, 14.'. *.|4,*)*.1X>) 

700 F0RRAT<T15.i],T20.AI,T*5.5(A1 .14. ' . ’ . 14. ‘ . 1X> > 

705 F0RRAT(1H«.T40. ' UllDEOTIF IASLE ‘ > 

710 f0RnATMN*.T40, ‘OTHER' ) 

EOO 


fOO Of CONPUATIOOt 
MRTflO tTRROLIC 

NRTfLO tVNOOlIC 


SO DIAGROITICt. 


14 Ml 7* UiSOiO* 
01 APS 7* 11i25i5* 


0 025SM7* 

0 050420*3 


57 fOELETED) 
57 COELETEO) 







STMTINS ASOMESS OIAOOO 

COKE LtfltTS OtAOOO OA23M IQOOOO I437U 143777 


riLZim/R0«454 

0 lOOOOO'l 16424 

1 Ot4000>023ST2 

WT0M/RLEC5 

1 023573-O234OR 

«IER» /RLEC5 
O: 116627-114427 

l! 023405-02*1112 

2 114430-114725 

«r»IT4 /RtEC5 i 

1 025113-025050 , 

f tl472!-ll4751 J 

«rm /RL22 j 

t 025051-025073 j 

0CIWT4/RLEC5 I 

t 025075-025 320 

2 114752-117030 j 

«OTtOt/RtEC5 I 

1 025321-025770 1 

2 117031-117075 j 

FMC44/COOE ] 

t 025771-024035 i 


OEPfH /•••••• 

0 117075-117102 

NCRII4 /RLEC5 

0 117103-117272 

1 024035-024577 

«IOI04^RLEC5 

1 024500-024551 

2 117273-117323 

0IHM0t/0LEC5 
I 024552-024455 

OTAOl /CODE 
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0 

C^HIU/COOC 
• IIMM-IIMF} 


0 

1 02A449-0275S2 

SCfM&/C0DC 
I 02rS53-02r944 


0 120 ^ 29-12115 24 

1 02M42-030344 


0 124525-124420 

1 030345-031045 

ooLimr/cooE 

0 124421-124712 

1 031044-032137 

ruruT/NXMOo 

0 124720-124755 

1 032140-032474 

01275170X441^ 

0 124754-125111 
t 032475-032710 

0I2T4 /0K^44 
• 125112-127255 

1 032711-034722 

4170414 /0UCC4 
0 127254-127254 

t 034723-034215 
t 127257-127475 

7L4IU4/C00E 
0 117474-127505 

7SC0O4/C0DE 
0 127504-127540 

7HOU4 /CODE 
0 12r54|-12746| 

7SU4P4/C00E 
0 127442-127747 

7I«TL»/C6DE 
0 127770-130071 

•V7044/C0DE 

0 130072-130120 

1 034214-034374 

nSCtOl/COOE 
0 130121-130142 


l|loD> /CODE 
I Q343?l-03i%3) 

«mjTft /HLEC^ 

0 t30l13-l30l<ir 

1 034434-037134 
E 130190-130149 

M0CVI/4LEC4 
0 130144-130392 

■MDIQ/COOE 

0 130393-130420 

1 03M37-037424 

ri2SM/4i(444 
t 130421-130431 
I 03?42r-03f7ir 

MOTfLO/CODE 

0 130432-130431 

1 037720-040311 

ri2W0r/RK4*« 

0 130432-131042 

1 040312-040742 

0I%FTt/RLEC9 

0 13I063-131049 

1 040743-042040 
I I3I044-I31I23 

OI0I04/RLEC4 

1 042041-042214 

2 131I24-I3I193 

TO0TC /CODE 

0 131194-131143 

C04TE4/C00E 

1 042217-042293 

rsiSEL/cooE 
0 131144-131234 

M /CODE 
0 131237-131441 

CtOCR /COOE 

0 131442-131444 

1 042294-042334 

ois^t 

0 131449-131034 



0 133039-133132 

O0fl»f/***«** 

0 I33I33-I14 39 0 

C04944/****** 

0 I14m-I94t39 
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••*8000 

*•« 

1«P(IT C«RO 

COWE^T 

cm 

AO. 37 TEST AREA 



9**6000 

. ••• 

I^fUT CARO 

OUTROT 

L 




• **V«NII 

IBLCS 

CflECRCO CATER*** 

SKIP 

200 

140 



»**VMI7 

IBLES 

CMECREO LATER*** 

Z00«f 

1 

1 



*••6000 

*•* 

tWRUT CARO 

CHIT 

290 

220 



•*•6000 

••• 

IWRUT CARO 

RICTER 

f 




•••6000 

••• 

imRUT CARO 

ISCAWO 

-1 

-3 -3 -3 -3 

-3 

-3 

•••6000 

*•• 

IHIRUT CARO 

HOLE 

-3 

-3 -3 -3 -3 

-3 

-3 
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LV«OM t. JON«Sa« S^«CE CC«rEH 

moustm* tei«s 


/ 

N 

i 


I 

cm MO. If TESf AftCA 


SUMfMRy or IMPUT T«rE 


IMTIt IMruT OH LOGICAL UMIT II. 

iMftl rtLC 1 GEMEAATEp OM 06 AAR f6 AT UiOfT)3 MILL tE RROCESSEO 

SUWIARV OF IRfUT SCANNER OATAi 

OSeil-IMrUT THRESHOLOIMG HAS SEEM AARLlEO. 

RROCCSSPR OISPLAV 010 MOT APFLV SMTIAL FlLTERIMS. 

DATA CLASSIFIED FQR TARTAR FILE 1 DM 10 FEO 7A . 

MUMIEA OF IMRUT LIMES « 912. 

MUMOEA OF IMROT SAMRLES « 912. 

•UnBEA OF CLASSES « 9. 

MUMtCR OF subclasses * 9. 

MUMBEA OF fRAIMIMG FIELDS « 9. 

MUMBCA OF TEST OA OESIGMATE FIELDS *0. 
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LVM3« t. J0M«S9I SMCC CtHlVk 
ttOUSfM. TCIAS 


Sr UST AMEA 


rAKESSI«6 fOA riLZCH 

1AAE OUTPUT 0« L061CAL UAIT 1« — UAASV$ I I rOAAAT. 

OA l«PUT TAPE AErOAE PAOCESSl^fi tESI^S 200 LIAES WILL OE SKIPPED. 

(W EACH LINE OF THE INPUT TAPE UO SAHPLES HILL OE SKIPPED. 

ZOOH LINE FAC TO A « 1.000 

ZOOH SAHPLE FACTOA * 1.000 

LINE U4IT s 290 

SAHPLE LIHIT ■ 220 

input: lines noi to 912 mill not ie paocesseo due to the iooh line factoa. 

ON EACH INPUT LINE, SANPLES 301 TO 912 WILL NOT OE PAOCESSEO OUE TO THE 200H SAHPLE FACTOA. 

ISLAND TEST » -1 -S -J -3 -3 -3 -3 

UNCLASSIFIED PllCL TEST I HOLE) * -3 -I -3 -3 -3 -3 -3 

DEFAULT CODE FOA UNCLASSIFIED FUELS > 120 

DEFAULT SVnOOL FOA UNCLASSIFIED FUELS > 0 
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TMlIVtW flELOS ron riLiM OJTPtIT 


MCLD CLASS SUICLASS CODE SVAtOL VEAflCES (SAmLC»LI«EI 
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9 

c 
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92, 

290) 
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299 ) ( 

39, 

299) 


•0.29 

3 *0.29 

3 

♦0.29 
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0 

i 

49, 

290) f 

72. 

290) 
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299 ) ( 

49. 

299) 


-0.29 

9 -0.29 

9 

-0.29 
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0 

i 

n. 

290) f 
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290) I 

103. 

299) C 

94, 

299) 


-O.ff 

9 -0.79 

9 

-0.79 

lU 

9 

t 
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290) I 

111. 

290) ( 

133. 

299) < 

124. 

299) 


-1.9 

0 -1.9 

A 

-1.9 

109 


c 
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290) ( 

I49r 

290) ( 

149, 

299) ( 

197, 

299) 


-2.9 

f -2.9 

r 

-2.9 

•• 

t 

( 

Hi. 

290) 1 

199, 

290) ( 

199, 

299) f 

lOi, 

299) 


-1.9 

9 -1.9 

t 

-1.9 

72 

• 

c 
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290) C 
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290) ( 

229, 

299) ( 

217. 

299) 
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0 
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339. 
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299) 1 
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LV«00« t. JOH^SM SMCC C€%fCH 
NOUSrO«, TEIAS 


CMI «0. ir fE$T IIUCA 


SUMARV OF OUTFUf F0f» F|L20^ 


OUTFUT FILE 1 QH UWIT If 


— LAMSVS II FOR'^^T. 


«U^8ER OF RECORDS THRT HRl^E lEER RERD FRO^ LOSICRL UVIT 21= 251, 

«iU«i£R OF URCtRSSIFIEO PKELS TMRT MRVE BCE« RECLRS5IFIEO DUE TO THE HOLE TEST 1-3) FOR FILTER f 
TOTAL IfUniER OF HOLE FUELS THRT HRVE BEE« RECLASSIFIED 105T. 

IKJHBEII OF I5LRRD FUELS THRT HRVE BEE^V RECLASSIFIED 0*JE TO THE ISLAHOI-3) FOR FILTER 7 = 731. 

TOTAL RUHBCR OF ISLRHO FUELS THAT HAVE BEEH RECLASSIFIED r R589. 

TOTAL RIURBER OF 20CF1EO OUTFUT POUTS « 55000. 


FERCERiT TABLE 


SUBCLASS HMt 

total foiwts 

FERCE5TAGE 

♦ 1.5 

454 

1.21 

♦0.75 

1040 

1.53 

♦0,25 

1327 

2.51 

-0.?5 

3205 

5.57 

-0.75 

15505 

20.53 

•1.5 

•540 

15.54 

-2.5 

• 347 

15.21 

-1.5 

2551 

5.53 

WATER 

13332 

25.25 

hole 

3 

.01 

UWlOEW 

0 

.00 

OTHER 

0 

.00 

THE average CRI 

FOR ALL LA50 FUELS 

IS -1.304 
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OIS^LAV OF FIELD 

bNOLE 

FAOOUCEO 

•V filzon 

• 

riLTCft « 7 

ISLAND 

TEST *-3 

MOLE 

TEST = 

CLASS 

NO. NANE 


NO. 

SuftCLASS 

NAAE 

SVNftOL 

1 *1.5 


1 

♦ 1.5 

1 

2 *0.75 



♦0.75 

t 

9 *0.25 



*0 . 25 

ft 

5 -0.25 



-0.25 


5 -0.75 


5 

-0.75 

ft 

ft -1.5 


ft 

-1.5 

t 

7 -2.5 


7 

-2.5 

i 

• -3.5 


ft 

-3.5 


9 WATEA 


5 

WATEA 




SPECIAL SV<9ftOLS 
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TANFLO 
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T5TFL0 

« 



13 

ODPFLD 
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0000000001 i t 1 1 1 1 1 1 1 722222222? 3333 333333‘ttS^‘t*t'»*l*l^55555S555 5 666666666ft f 77 7 7/ rr/7 80 08889388999999999900000000001 
12395678901 23956 7890 1 23956 7990 1 23*156 78901 23956 78901 2395 6 7890 1 2 39567 890 1 2 395 678901 23956 7990 1239567090 1 2345 6 7890 


2 irilfflflfTtttltltttttlttlttTTtTf tUttflTtttft ntimttTItttftUtttllTtttttttm tilt tttf 1(900000001900080089000022 

3 frfrmirrfmtllt91tftttt9t«tltttt9«tlltt99tt9lttfttlf1tttttMni«TttMnitt9fmtltl9tttf0090ffl9000f0000f0000Z2 




frifrfftffffifffffrrfftfrfrrrrrMfiMtiittfttfitiitittMtiittiiitfMtfiiiitttfiiitittnttitiiiffMfifftfMiMtffft 
ttf f ffiff trrirf f ff If If Iff If If irftiifMfitiftftitf tin ttnititiitf lint Iff nil nil It tiintittitttMtttfftf •#••!•••• 
fffffffiffif Ilf Iff rffffffffffffflniiiniiiniinnnnnniiiiiinnninnniiiiinnnnniffffMMifMMffMM 

tfirfiriiffi ffffffff fiffiriff frfrnifiininiiinnnnnniiiiiinnnnnnniiiinnnnniM*n«nn«n**9nn 

tfiifffffffif iffffffffffiffrfffffffiiiiniiiininnninnniiiinnnnnnnniiinnninniMffffiMMMnifM 
ttfiiriffiriff f If fiffififiiffif rrf^iniinnnnnnnnnnfiiinnnnnnniininnnnnnitffffitifffMfiMf 
tiiiffff III If I f If If III I riffiff Iff f innniiiiinnnnnniniiininnnnnniiiinnnnnin^fffffeMffMfffM 
ftttciifiif fill If irfffftrffffiifffrnnniininnnnnniiiiiiinnnnniniiiiinnniiininfMfMfMfiMfMf 
fftitifififf iiriff Iff ifiiiffiff ffffiiiniiiiiininnnnntitiiinnnnnniiniinnnnnnnififfffffff ^fiMf 
ttttttffifif till fill ffffiif niff ffinniifiiininn tnnniiiinnnnn nil Hill I nnnnnnni|ifff3Mj*f Iff ••• 
tfftff£ffifffff Iff Iff nrfifffiff ifff rnnnininnntnninif innnnntnniiiinnnnniniK9fM?Mff«ffftff 
tfffffffifffffir .nfffiffffiffff niffininninninniiiiiiiiiiintiiiiiitiiiiiiiiiiiniiiinnilff 
tiffttiff fffiff fff rrfffffff ffifff Iff finnninnnnnniniiiiinnnnnnniininnnnnninffffffMfftnM 
ffififfifirif f f 1 1 1 If Ilf If f 1 1 1 If f I iifiiniiiininnnntnniiiiinntinnnnninnnnnnnintf MftiffftMff 
fttffffffff 1 1 If 1 1 f I iiiri If 1 1 1 If iiiriff iinniinnnnnnniiiiiininnnnninnnnnnnnnn^MfffffM Mff 
ftirffifirniff I f I If fiiiif 1 1 If f nil I If itniinnnnnnnniiiinnnnnnnitiitninnnnniniif MMfftfffM 
fftffffffft^f I If I f I Iff If 1 1 1 Ilf If If If ff ifiinniitnnnnniiiiiinnnnnnnniiinnnninninitninnnnf 
«s tffirtfffffSf Ilf f ffifiiif iiiiiif iiiif If iiiiinniniinniniiiinninnininiiinninninniiinitiinninn 
ftffffffftfK/ffffiiiff fiiif irififififf ffiininnnnnniniiinnnnnnnniiinnnnninnnninninnni 
f r fffmtfffff^iiff fin Ilf Iff I nil f 1 1 Ilf 1111111111111111111111111111111111111111111111111111111111111111111111111111 
ftninfiftfiinn fffinnn fnnninniiinitnnnnnniniiinnnnnnniitiinnnnnnnnnnnnnnn 
f f ffttfiffnifftinfinninffnininninif ininnnnniniiiinnnnntnininnnnntnnnnninnnnni 
•0 ttttrfftffffrfinnnnnnfnnnfnfnniiiininnnnniiiiinnnnninniiiiintnnnnnnttiintnnnn 
«i tftfffffftiffteinn If Iff nnn I nnnnfmiinnnnnnniiiinnnnnniniiinnnnnnnnntntnnnnn 
«f ttftfnffifffffUnnf nnnfffnnnnnffinnnnnnnniitiininnnnniniinnnnnnnnniitnntnni 
4 3 fffftffniffifffiiinnnf iniffnininffniinninninniiniinnitniitiitiiiiinnininninitnininnin 
44 fffffntffifffrfmnnf linn fninfifiniininniinniniiiinninininniiiinninninninnininiinn 
49 tffffninniffffff nninn Ilf nnffnnnninnnntnntniiininnnnintiiinnnntnnnnninnnnni 
44 tffffffftffftrffrtffifffnnn nnn fnnnnjinnnntnnniiiitinnnnniiniinnnnnninnninnnnni 
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tftMmimtmttMttMllllllllfllimitllllllllltlMMMinMMMIMMMttlMIMMItMMMtlMMttlttlMIIMMtM 

ttttftftmftttrtttfttrrfffifiifffiftrrfffitftifi>ttttMMMitiiitiiiitittittiiii«ftiiMiiMMiiiiiiitiifiiffMiti 

fttitittftttftitrrttrtftffifffiiffffiffffffiiffffttitMiMniiiMiMiiiiiiitiiitntfiiiitMiiiittiitttMMtiiiiiii 
•ittttttmttttftrrttttrfnfftfffiffftfftiffffiff^ttittiMMiittitiiiiMitiiiiiiiiiiiMfttiiiif niif itiitmtiitii 

ttitftttttftttttttttttfttfff flllfffififtfiffffiff IMIlf lltlllllltlllfMMlIttllltlllltltlllltltlllltlMllfltlllMt 

•aiaftttrttttttrftrttttttftMffffitffififfffifffiffkMiMMiiititniMMtitMitf iiiititntiiiiitiitMtittiitiniii 

aaaimttrmttrrtfttttttttiififffffffttfffrffrfrffMttiiMiiiftiMtiiitiMtitfiiiMMiitMtitiiiifiMiffittifttf I 
aaaaaaaittfrtttftttftttrttitfifffffff titfffrffffftffiMtifttitiiiifiitf •fiitMttiiiitiitiitiitttiiiiitiftiititiiti 
aaiaaatitffittrrrmttffttmliifffffffiffffffff ffff fMtitiiiiiiiMiMitttiittiiiMiiftitittiiittitiiiittttttiiiti 
aataaifatrftftffftrfttfftrtfttaiffffffffffffififfriffiiittifittiMiiiiiiiinitiiniiiiiiiittttiiiniiiiiiiitttiMi 
aaaiaaaiaiffftttfftttttffftmf#ifftfffffffffffffffffMtttttttnMi«itiniiitittMiiiiniii«iiiiitiiiiiitiiiitifti 
aaiiaaiaittitfttrftttttfftmtttffffffffiffiffffffffff^iMtttfMtMiiitiMtiitiiiiMniittiiiittiitiiiiiMittiitti 
aaaaaaaaaatttttfftfffttfffttftttrifffiiftfftffffffffffiiiniiititiiiiiiitittitinttttiiiiiMiiiiMttiiiiniiiiifit 
aaaaaiiajafttrfrrtftttttttmtmtifffrffrffffrffrifrfyttiiiiiiiitMfiiiiiiiiiiititfttititiiMititiMiiiiiiiiitMt 
naiaafiaiattffftffrtttfffftfftittrf frrfrrrfirrffirtffriitiifiiMiMMitMiitititiiiMtiMiiiiittittMittMiiitiiti 
aaaaaiiiiaavttttrttttttftftfmttrt fffrffffffftifffftraiMiMiitititiMiiiiftiniifMiiiniitiMitttiMtiiitiMii 
aaaaaaafiiiittttttttftrrftrfttfrtftt^ffffffiftffiifififMiiitftititMitiiiiiiitMiMMtMtiiitiMiiiMMiiMtiiift 
aaiaaiaaaiaairtffftfttttftttfttffffttffifififfffriifffft^iiittfittiittiittiiitiiifMitMtiiiiiiMitiiiiiiiitiiffii 
aaiatiatiiaailttfftftftffttttttttfttff ifrfffffffriffttffiitinttiiMtitfttitiitiiiiiiiiiitniiiimtittftitiiitiiit 
aaaaaiaiaaafaKrttttfttffftftmfffttttiffffifrffiftfffftiliiiiiMiiiitnMiiiitiititiittiiiiiiiiiiititiiMiiitittt 
faaaiaaiaitaiattffftttffffrttfttfttftf If fiff ffff ffff Iff rrtiiiiiiitfiiiiit I till fill tfitttiiiiititift till! 111111111 
aiaiiiiaaaiai^ttffffffffffftfffffffttfffffffriffffffffrtninMMfitiMtiiiiiiif 

laaataaaiaiiiffffffffffffftfffffftffrfffffffffffffffirKMiiittttiittMitiMiititMfiittiiiifiiiititttftiiiifiti 
afiiitafaiafffffffffffffiffffftffiffrfrffffiffifffftifftiiiiiiitiitttitiitiinfitttMiiitMitiiiMMttitiiiiit 
aaiaaaaaiiaaVffffffffftffffffftfffffffffrtffiffffffiflMtiiiiMititMttiiiitiMtiimitffintttffntMiiiifit 
aiaaaaiiaaVfffffffffffffffftttfffffririfffffiffffrfffaiMiiitiftifMiiMiimtiiiiiifiMitMtttifiiitiMiti 
laiaiaaaaiVfffffffffffftttftffttttfiffffrftfffffffftMtiiiMttiiMMiitiiitiiitfMtitiintifitiiiiiitMiit 
aaaaaaaattffffffffftfffffffffffftffffifffffttftitffCiintttiiiMfiitiiMiitttttftiiiiftftiiiiiiiiniitiii 
laataaaffffffffffffffffffttffffrfffffffififffifffiliiiiiinniitifttttifiittiftiitiiiiittiiMiiiiiifitit 
aaaatiftttfffffffffffffffffffffrifffffffffftrtfffMiMttittittttiiniiitiftiitiiiifitiMiiiiMiftiittf 
a HtffffffffffffffffffffffffffrrffffffffffffrftfittMfiiMMitiftifittiitMnttMiiftiitiiiiiiint 
tftttfttfffftttffffffffffffrffffffffftfffrrffttittiiMnniiftiitMftMiMMfMMMtttnitiifiM 
tttfffftftftfffffffffffffrfffffififfrffffrtfMtMinMitiitMiMMMMiiimiMtitttMfniiMif 


ti 


ttftffffffffffftfffffffffifrrfffffffffrrfiftMtMMittttiifitMtfiitiiiiiitiifMtiitniiintt 
ttfffffffffffffffffrffffffiftfrfffffffffifriiMMMaiitiiittttf ltl•ll•ltlltflltltlllllllllltt 
ttttffffffffffffffffffffffffrffrifftfrffffifratMMiMiiiiiittfttMttifniiiMtiMiiMiitiMit 
ttfftfffffffffffffffffffffffffffifrfffrfrfffliiittMiiiniiMtiMiiMitiiiiiiitiitiMifiiiftt 
tfftfffffffftfffffffffffffffrfffffiiffrfiffrttttitftiifitiitiMtiMiinfiittaittiitMiiititt 


tffttfffffffffffffftffffffflffftfffffffllfffitllfttttlllllMflffllMItlltMItltllMtniMII 

tttftffifffffffffffffffffffatfiffrrfrffffrffiiMifiMtttiiiMffMiifitiiititiiiifitttinifa 

tfftfttfffffffffffffffffffr^ffiiffffffrfffffiftMMiftiiiittniiMiMiftiiitiiMitfiitiiM 

tttftffffffffffffffffffffftffffffrrffffrfrMMiaittititiitfiiiiiiMiiiMitifttitifiiiifii 

tiffffffftftffffffffffffffftffftfitfrrffrfftiitftMitttiiftiiiiiiniiiiittatiifitititiM 
itffffiffttffffffffffffffff^ffffffffffffiftiiiititniiMiitiitiiiittiM tiitiiiiiitiiifi 
ttffffffffffffffffffffffffeirtftffffffrftfftiitiifitiittiiiitiitiiiiiittiittiiitiiinti 
tftffifffffffffffffffffffffffffffffiiffffmtiiiittiMiiiitiiiiiiiiiiiniiiiiiiMiitftt 
ttfttffffffffffffffiffffffff ffftffffrfffffftiiitiitf MifiitMtiMiiiffitittnittiitttf 
ttffffffftffffffffffffffffff#ffffftrffffffftttinitfi«iimiMiiiiiittttfttftiiitiitii 

tffffffffftfffffffffffftffttffiffffffffff ritfitiifiifittitiMtttftiitMiitffttiiiiiii 
tftffffttfffffiffffffftffffjrrffffiffrffrffttiiMiMMiffiftiMitittftfittftMiitiitf 
fftfffffffffffffffffffffftfffffftffffffftiiiitiiiiittimtiiiiiiifttttititititMM 
ffttffffffffffffffffffffnffflffffftffftMtttltlttlftlMIMIIIttttMMIftlttllttt 

atffffffffffffffffffffftfffftfffftrtrf%iiiitiMM«ntti«iiitinMifitttitttiMi 

tttttfttfffffffffiiffffffffiffififffatttiiMttMtnttMiititmiMfiMttfiiiia 
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ttttfftttttfttfmfttrttfifiif f If tiff ifitniiM till lilt iiiiiiitittfti 

ittttftttftmtrttttfttfiiftiiftfifttfiffiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
tfttttttftrtmmttftfft^frrrfrfffrrtritiiiiitiiiiiiiiiiiiiiiiiiiiitMiiiiiii 
ttttttttttfitttritttftttmffitiiiffitifiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiii 

tsftfftttstrmttfttttttttf/fffffffffirffitiiitiiiiiiiiiiiiiiiiiiiiiiitiiiiiii 
tttttfftttrttrtttttttftmtff itifftfffiffviiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii^ 
ftfttttttfttttfrfmftmtttirfrfttfffffibiMiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiii 
iifttcttttfttttttttftttttrff^jftiffffiiffHiiiiiiiiiiiiiiiiiiiiiiiiiiiiKiii** 
ttittttftftttmmtfttfttttf Iff f ittf in Ml iiiiiii mil itiiiiiiiiiiiiii I II III 
tftittitffttftnntttnnftrMtnfinifiiiyiiiimiiimiiiimiiiiiii*«ii«*« 
fttttttttt(fnnnmr*ffttftfifffffftffiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
ttttttttttnfttnntmiftftlfffiffiifffimiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
ttittttttttfffntffttfnfffMiffiffiffifiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiii 

tttittfftfttftfnttnntffftf tffntiififtiiiiiiiiiiiiiiiimiiimiiMiii*i 
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fittfttrttfifttmtrtffnfxnfffffffifftfftiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

tftfftttttttffttttfttrrftfrrfififfifiiiffffdiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
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ttttittttttttttttttttttttnttrrnf^itiititinttiiiiittinntitttttitiitt 
tiittttttttttttttttttittttttrtittti^ttittiitiintntiiitiiiiiiiitiiiiiti 
ttittttttttittttitttttttttittttttt$ Hit mitt lilt tint liitiiitiiiiit I ti 
titttiititttttttttitttttntitttt^ttiitiiiittitttttttitiitiiitiiititit 

tnnititiitttttttttttnttintttmt till iiitt It It lilt till tiiimmt 
uittttittuittttitttttntttm$fiitttittttttttitiitiiitiitittttiii 
ttuittttitntmtnnmmttiiiitiitttiiiiittitiiiiitiiiitttiit 
iututittnitttntimtnmtUttttiitttitttttittitttttttiitttti 
itiiittiiitiititninitmnutttitiintttiitiiititittitimm 
iittittiuiiimttnnnmttmiiitttittttttittiitiiittitttii 
iUititttttttitmtintitttiiitttttiiiititttittittfTft 
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EXCERPT FROM DISPLAY PROCESSOR. USER DOCUMENTATION 
EOD-LARSYS WITH MODIFICATIONS 

The DISPLAY processor reads a classification tape (MAPTAP) output by 
CLASSIFY and performs the following functions: 

• Provides a line-printer map of each classified field on the MAPTAP. 

Training and test fields within the classified image are outline. 

• Produces classification summaries for each classified field. These 
summaries provide a break-down on the number of pixels classified 
and the number of pixels thresholded from each subclass, class, and 
category. 

• Optionally produces an intensive test site classification summary for 
one zone type versus all 'other' zone types. The user specified zone 
may be a category, class or subclass. 

• Allows the user to 'designate' fields to be excluded from the classification 
summaries. Fields may be designated 'unidentifiable' or 'other'. 

Pixels within the unidentifiable fields are counted and are not considered 
in the classification Summaries. Pixels within the designated 'other' 
fields are counted as a separate zone type regardless of how they were 
classified. In the intensive test site report these pixels are included 
in the 'other' category. 

All pixels within the 'designated' areas are printed with the pound, 

'#' , symbol . 

3 

See section 12.4.4 for sample input of 'designated' fields. 

• If thresholding is requested, assigns a pixel to the threshold class if: 
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where: 


Q^. = the value of the quadratic form (x-v^. ) KT^ (x-y^.)^ 

as computed by CLASSIFY for subclass i 
= mean vector for subclass i 

K| = covariance matrix for subclass i 

t^. = threshold value for subclass i 

• Allows the threshold value t^. to be determined in one of three ways. 

1. User input. The user inputs the exact threshold value. See 
control cards (THRESHOLD) and (OPTION THRESHOLD VALUE). 

2. Chi square. The user inputs confidence levels for each subclass 
on the THRESHOLD card and includes the OPTION CHI-SQUARE. The 
program obtains the chi-square threshold value from an internal 
chi-square functional routine. 

3. Empirical. The user inputs confidence levels for each subclass 
on the THRESHOLD card and includes the OPTION EMPIRICAL card. 

The program determines the empirical distribution function for each 
sub-class from the cumulative histogram of the quadratic form for, 
correctly classified pixels in the ground truth areas, (i.e. training 
or test fields). 


Conf i dence 
Level 



From this example curve the user input of a 95% confidence level for sub- 
class i would result in a threshold value of 6.0. 



• Produces plots of the empirical distribution function when the OPTION 
PLOT is exercised. 

• Optionally performs a four nearest neighbor spatial filtering on the 

classified image. This algorithm takes into consideration that, in many 

instances, a pixel is most likely to be like its nearest neighbors. When 

the option is exercised (via the OPTION FILTER control card), the four 
nearest neighbors of each pixel are examined. If all the neighbors are 
classified the same and the pixel in, question is classified differently, 

then it is assumed that the pixel was classified incorrectly and its 

classification is changed. 

Line 1 C 

2 C X C 

3 C 

3 

The pixel classified as X vn'll be changed to C. See reference 9 for more 
information on this algorithm. 

• Optionally outputs the classified image on to tape in either LARSYS-2 or 
Universal format. (This option is exercised via the FORMAT control card.) 

• Provides classification performance summaries for ground truth areas within 
the classified image. The following six performance summaries are available 
to the user. 'Fields' in these reports are training fields used in STAT or 
ISOCLS and parsed to DISPLAY on the MAPTAP, or they may be 'test' fields 
input directly to DISPLAY (see section 12.4.4)^ 

1. Field by subclass 

2. Field by class 

3. Field by category 

4. Class by subclass 

5. Class by class 

6. Class by category 
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12.1 INPUT FILES 


The only input file required for DISPLAY is the MAPTAP (Section 4.4)^ file 
output by CLASSIFY. This file must be assigned to logical unit B (Fortran 
unit 2). If DISPLAY is executed back-to-back with CLASSIFY the file may be a 
assigned to FASTRAND. However, if DISPLAY is to be executed later, the file 
must be assigned to tape and saved when CLASSIFY is executed. 

12.2 OUTPUT FILES 

The DISPLAY processor will optionally generate a tape of the classified image 
for display on the DAS. The control card "FORMAT" (Section 12.4.3)^ allows 
the user to exercise this option. When requested the tape should be assigned 
to a 9-track tape drive for compatibility with the DAS tape drives. The 
tape assignment must be made to logical unit N (Fortran unit 16). 

The modified DISPLAY processor will optionally generate a tape containing 
the classified image and pertinent information about each zone. The option 
is exercised via the FIZKEY control card. The tape assignment must be made 
to logical unit I (FORTRAN unit 11). If more than one execution of DISPLAY 
is desired, multiple files can be output on the INFIZ tape. 

12.3 SCRATCH FILES 

The random access drum file is used as a scratch file in DISPLAY. No 
assignment is necessary. 

12.4 CARD INPUT 

All formats referred to in this section are defined in section 3. 

12.4.1 PR OCESSOR CARD 
Keyword 
$DISPLAY 


Parameter 


Function 


FILE = N 
(Default N 


= 1 ) 


Designates to the monitor 
routine which processor is 
to be executed. Parameter 
value N is the file number on 
the MAPtAP file to be displayed. 
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12.4.2 SPECIAL SYSTEM DECKS 


None 

12.4.3 

Keyword 

OPTIONS 

OPTIONS 


OPTIONS 

OPTIONS 

OPTION 


CONTROL CARDS 


Parameter Value 

Function 

STATS 

Prints statistics for sub- 

(DEFAULT: No 

classes used in the previous 

statistics printed) 

CLASSIFY run. These statis- 
tics are saved on the MAPTAP. 

4 

PCT 

Print a performance summary 

(DEFAULT: Perfor- 

on a per field basis as well 

mance summary printed 

as per class basis. This 

for classes only). 

is a performance summary for 
ground truth fields, (i.e. 
training or test fields 
within the classified image). 

NOMAP 

Do not print a map of the 

(DEFAULT: Map 

data. Only a performance 

printed) 

summary is printed. 

FILTER 

Perform four nearest neighbor 

(DEFAULT: Spatial 

spatial filtering on the 

filtering is not 
performed) 

classified image. 

FIZKEY 

An INFIZ tape is generated. 

(DEFAULT: No 
INFIZ tape is 
generated). 
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Keyword 

THRESHOLD 


Parameter Value Function 

Tj.Tg ... Use the threshold values 

(DEFAULT: ^1*^2 “* subclasses 

No thresholding) 1,2,... respectively. 

Thresholds must be positive 
floating point numbers. 

One value must be specified 
for each subclass on the 
MAPTAP. Thresholds may 
also be specified in the 
following format: 
Ni*Ti,N2*T2.... 
where and N 2 are integers 
which specify how many 
consecutive times the 
corresponding thresholds 
should be used. 

For the CHI-SQUARE option 
and the EMPIRICAL option the 
numbers input on this card 
are the con-f'idence levels, 
(i.e. Tj^ = .39 means that 
the user wants to maintain 
99% or reject 1%) . 

For the THRESHOLD VALUE 
option, the numbers input 
on this card are the actual 
threshold values to be used 
for thresholding (i.e. T 
Tj = 10.02 means that the 
threshold value for subclass 
1 is 10.02. 


Keyword 

Parameter Value 

Function 

OPTIONS 

CHI SQUARE 
(DEFAULT: None) 

*See footnote 

Compute thresholds from the 
chi-square distribution, 
using the confidence levels 
input on the THRESHOLD 
control card. 

OPTIONS 

PLOT 

Plot the empirical distri- 
bution functions obtained 
from the cummulative 
histograms of the quad- 
ratic form for each 
subclass. 

OPTIONS 

EMPIRICAL 
(DEFAULT: None) 

*See footnote 

Compute the empirical 
threshold values using the 
percentages input on the 
THRESHOLD control card. 

OPTION 

THRESHOLD VALUES 
(DEFAULT: None) 
*See footnote 

Use the numbers input on 
the THRESHOLD control card 
for the actual threshold 
value, 

SYMBOLS 

^1 *^2 * " * 
(DEFAULT: 

1,2, -9 

A,B,C,D, Z, 

1,2, 3,4) 

Assign symbols S^,S 2 , ... 
to subclasses 1,2, ... 
respectively. 


*If the THRESHOLD control card is input, one of the three options 
(CHI-SQUARE, EMPIRICAL, or THRESHOLD VALUES) should be input also. If the 
OPTION card is omitted and the THRESHOLD card is input, chi-square is assumed. 


Parameter Value 


Function 


Keyword 

ACREAGE 


SITE 


ANALYST 


PROCEDURE 



TOTAL = X, 

CROP = Y, 

OTHER = Z 
(DEFAULT: None) 


The total acreage in the 
intensive test site is X. 
Acreage of the crop named 
on the 'CROP' control card 
is Y. Acreage of all other 
crop types in the intensive 
test site is Z. X, Y, and 
Z are floating point 
numbers. This input is 
meaningful only if the 
'CROP' control card is 
input also. 


Any 24 characters 
(DEFAULT: Blanks) 


Name of the intensive test 
site. This is used in 
printing the heading for 
the intensive test site 
report . 


Any 18 characters 
(DEFAULT: Blanks) 


Name of the data analyst. 
This is printed in the 
heading for the intensive 
test site report. 


Any 60 characters Procedure used in classifi- 

(DEFAULT: Blanks) cation of the intensive 

test site. This is printed 
in the heading for the 
intensive test site report. 
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Keyword 

Parameter Value 

Function 

FORMAT 

NAME 

(DEFAULT: No 

output classifica- 
tion map tape is 
generated by 
DISPLAY) 

\ .1 

NAME = UNIVERSAL 
The output classification 
tape is generated in the 
Universal format. 

NAME = LARSYS 
The output classification 
tape is generated in the 
LARSYS-2 format 

HEDl 

Any 60 characters 
beginning in 
column 1 1 . 

’ (DEFAULT: 

LYNDON B. JOHNSON 
SPACE CENTER) 

Replace first header line 
with the 60 characters in 
the parameter field. 

HED2 

Any 60 characters 
beginning in 
column 11. 
(DEFAULT: 

HOUSTON, TEXAS) 

Replace second header line 
with the 60 characters in 
the parameter field. 

COMMENT 

Any 60 characters 
beginning in 
col umn 11. 
(DEFAULT: 
blanks) 

Print a comment line using 
the 60 characters found in 
the parameter field. 

DATE 

Any 12 characters 
beginning in 
column 11 . 
(DEFAULT: 
current date) 

Replace the date in the 
standard heading with the 
12 characters in the para- 
meter field. 
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Parameteir Value 


Function 


Keyword 

*END* (none) ' Signals the end of the 

control cards 


$END* 


(none) 


Signals the end of all 
control cards for the 
current processing 
function. 


